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ABSTRACT 



THE PDP-15 EXTENDED mEmORY TEST CHECKS TOR CORRECT OPERATION 
or THE SYSTEM WHEN OPERATING WITH EXTENDED MEMORY. THE 
PROGRAM CAN TEST A SYSTEM WITH A MAXIMUM CONFIGURATION 
OF 32K OF CORE STORAGE, FOR EACH FIEtO/'PAGE (4KJ OF STORAGE 
IN THE SYSTEM THE PROGRAM CHECKS FOR CORRECT OPERATION OF 
KEY INSTRUCTIONS, AND FOR CORRECT OPERATION OF THE 
INTERRUPT SYSTEM, API SYSTEM, AND AUTO-lNOEX FEATURE, 

REQUIREMENTS 



EQUIPMENT 



A. STANDARD PDP'-IS WITH AT UEAST 8K OP CORE STORAGE, 
e. PROGRAM LOAD DEVICE (ASR33/35 TELETYPE OR HIGH SPEED 

READER), 
C. THE PDP»15 TELETYPE MUST BE OPERATIONAL AS IT IS REQUIRED 

FOR PROGRAM TYPEOUTS. 

STORAGE 



THE PROGRAM USES LOCATIONS 00013 THROUGH 9324. 
PRELIMINARY PROGRAMS 



ALL PROGRAMS REQUIRED TO INSURE CORRECT OPERATION OF 
THE BASIC PROCESSOR MUST HAVE BEEN RUN SUCCESSFULLY. 

LOADING PROCEDURE 



A. LOAD THE OBJECT tApE IN THE TELETYPE READER, OR IN 
THE HIGH SPEED READER IF THE SYSTEM HAS SUCH READER, 

B. SET ADDRESS SWITCHES TO 17700, 

C. SET BANK SWITCH TO ON POSITION, 

D. PRESS "RESET" 

E. PRESS "READ IN" 

F. THE PROGRAM WILL LOAD AND HALT WITH AC«777777 IF 
PROGRAM LOADED CORRECTlY, IF PROGRAM HALTS WITH AC«0, 
A CHECKSUM ERROR HAS OCCURRED. REPlAT THE LOADING 
PROCEDURE, 
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4, USE PROCEDURE 



THE PROGRAM IS MADE uP OF INDIVIDUAL TEST ROUTINES 
NUMBERED FROM 00 THROUGH 1,67 <0CTA1,), THESE TESTS 
ARE RUN THROUGH SEQUENTIALLY, EACH TEST IS REPEATED 4096 
TIMES BEFORE THE PROGRAM PROCEEDS TO EXECUTE THE FOLLOWING 
TEST ROUTINE, 

THE SUCCESSFUL EXECUTION OF THE SET OF ROUTINES IN THE 
PROGRAM CONSTITUTES A PROGRAM PASS, COMPLETION OF A PROGRAM 
PASS IS INDICATED BY A SINGLE RING OF THE TELETYPE BELL. 

THE PROGRAM IS CONTINUOUS RUNNING, THAT ISi AT THE 
COMPLETION OF A PROGRAM PASS THE PROGRAM REPEATS ITSELFi 
UNTIL STOPPED BY THE USER, 

REFER to SECTION 9, 3s TEST ROUTINES DEScRIPTl'ON, FOR THE 
NUMBERS AND DESCRIPTIONS OF THE TESTS THAT MAKE UP THE 
PROGRAM. 

THE USER MAY CONTROL EXECUTION OF THE PROGRAM WITH THE 
AC SWITCHES (ACS) AT ANY TlMEi AS FOLLOwSI 

ACS0S1 ROUTINE-END-HALt, with ACS8 SET TO A t THE 

PROGRAM HALTS AT LOCATION 00576 AFTER THE ROUTINE 
CURRENTLY BEING EXECUTED IS COMPLETED. THE 
AC DISPLAYS THE NUhBER OF THE COMPLETED ROUTINE, 
THE PROGRAM WIlL NOT HALT IF ACSi IS SET TO A 1, 
AFTER PRESSING CONTINUE, THE PRqGRAM PROCEEDS 
TO EXECUTE THE FOLLOWING ROUTINg, THE ROUTINE- 
END-HALT FEATURE IS USEFUL IN FiNDlNC OUT HOW 
FAR THE PROGRAM HAS PROGRESSEDj OR TO ADVANCE 
THE PROGRAM ONE ROUTINE ^T A TJmE PRIOR TO 
LOOPING ON A ROUTINE, 

ACSlsl lOOP-ON-ROUTINE, The current ROUTINE IS 

REPEATED CONTINUOUSLY UNTU ACSj IS TURNED OFF, 
ACSi MUST BE OFF BEFORE THE ROUT I NE-ENO-HAL? 
OPTION (ACS0) IS ACCEPTED iY THE PROGRAM, THE 
LOOP^ROUTINE OpTJON CAN BE USEFUL WHEN TROUBLE.^ 
SHOOTING HIGHLY INTERMITTENT ERRORS, 

ACS2sl SCOPE-LOOP* THfS OPTION CAUSES THE ERROR TYPeOUT 

AND HALT FEATURE TQ BE BYPASSED TO PERMIT SCOPING 

WHEN A FAILURE OCCURS, THIS OPTION SHOULD NOT BE SET 

UNTIL AFTER AN ERROR HAS OCCURRED, WHEN THE OPTION 

IS SET, THE lOoP-ON-'ROUTINE OPTjON (ACSi) SHOULD ALSO 

BE SET TO PREVENT THE PROGRAM FROM ENDING THE TEST 

ROUTINE AFTER 4096 TESTS HAVE BEEN PERFORMED. 

HARDWARE ERRORS ARE INDICATED BY ERROR PRINTOUTS FOLLOWED BY 
A HALT. REFER TO SECTION &, ERRORS, FOR A COMPLETE 
DESCRIPTION OF ERROR REPORTING AND THE PROCEDURE TO FOLLOW 
WHG^fiN ERROR OCCURS. 
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4.1 STARTING PWOCEOURE 



A. SET ADDRESS SWITCHES To 00210 

I. PRESS RESET) PRESS START 

C. THE PROGRAM TYPES THE FOLLOWING MESSAGE AND THEN HALTS, 

"PDP-15 EXTENDED MEMORY TEST 

SET ACS 3-5 TO NUHbER OF ADDITIONAL EXTENDED MEMORY PAGES 

(ONE PAGE"4K). IF SYSTEM HAS API# SET ACS 6 TO A l , " 

0. SET THE AC SWITCHES ACCORDING TO TYpEO INSTRUCTIONS AND PRESS 
CONTINUE, IF YOU WiSH TO BYPASS STEP C PRINTOUT, PERFORM 
STEP D, AND START PROGRAM AT UOC 08203, 

••• NOTE ••• 
SET ACS 3-5 TO THE EXACT NUMBER OF EXTENDED MEMORY PAGES, 
SETTING THE SWITCHES TQ A NUMBER LESS THAN THE ACTUAL NUMBER 
OF PAGES HiLL NOT TEST THE SYSTEM CONCLUSIVELY, SETTING 
A LARGER NUMBER WiLL CAUSE THE PROGRAM TO FAIL, 

E. THE PROGRAM READS AND CHECKS THE AC SWITCHES, IF ACS 3«5 
ARE SET TO 000 THE PROGRAM TYPES THE FOLLOWING MESSAGE 
AND THEN HALTS, IF ACS 3-5 ARE NOT PROGRAM GOES TO 
STEP 6, 

"ACS 3«5 INCORRECLTY SET, OR SYSTEM DOES NOT HAVE AT LEAST 
8K OF CORE, 

F. !F STEP E TYPEOUt OCCURSi SET ACS 3-5 CORRECTLY AND PRESS 
CONTINUE. STEP E WILL BE REPEATED, 

G. THE PROGRAM RUNS CONTINUOUSLY UNLESS ERRORS OCCURi AT THE 
END OF EACH PROGRAM PASS THE TELETYPE BELL RINGS ONCE, 

N. AC SWITCH OPTIONS MAY BE SET AT ANY TIME, 

CAUTiONI DO NOT SEt SCOPE-LOOP OPTION UNLESS THE LOOP" 
ROUTINE OPTION IS ALSO SET, 

THE FUNCTIONS OF THE AC SWITCHES ARE REPEATED HERE FOR 
QUICK REFERENCEl 

ACS0=1 HALT AT END OF ROUTINE 

»0 DO NOT HALT AT END OF ROUTINE 

ACSlal LOOP ON ROUTINE 

■0 DO NOT LOOP ON ROUTINE 

ACS2«1 SCOPE LOOP 

=0 NO SCOPE LOOP 

ACSS-iS SET TO NUMBER OF ADDITIONAL EXTENDED MEMORY PAGES 

ACS6«1 API IN SYSTEM 

■0 NO API IN SYSTEM 
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5, OPERATING PROCEDURE 



9,1 PROGRAM ANO/OR OPERATOR ACTION 

5*1»1 NORMAL HALTS AND DESCfl'iPT'ION 

LOC 00577 COMMON HALT. THIS HALT IS USED TOR THE ROUTINE- 
END-HAlT OPTION, AND AFtER AN INSTRUCTION 
TYPEOUT, TO PROCEED AFTER A ROUTINE-END-HALTi 
PRESS CONTjNUli WHEN THE HALT OCCURS AFTER. 
AN INSTRUCTIONAL MESSAGEi PERFORM THE REQUIRED 
ACTION ANO PRESS CONTINUE, 



PACE 5 
ERRORS 

ERRORS DETECTED BY THIS PROGRAM ARE INDICATED BY ERRO« 
PRlNTOUTSi AFTER AN E^ROR PRINTOUT THE PROGRAM HALTS 
AT A COMMON ERROR HAL^ AT LOG 00602, 

ERROR PRINTOUTS CAN TAKE ONE OF THE FOUlOWInG FORMS! 

"ERROR LOC XXXXXX AC«YyYYYY TEST 000212" 

OR 
"CALERR LOG XXXXXX AC«VYYYYY TEST 000ZZE" 

AN "ERROR" TYPE PRINTOUT OCCURS WHEN A TEST ROUTINE DETECTS 
A PREDICTABLE ERROR FOR WHICH IT IS TESTING. 

A "CALERR" TYPE PRINTOUT OCCURS WHEN DURING A TEST ROUTINE 
A FAILURE OCCURS WHICH CAUSES THE SYSTEM TO "CAL OUT", 

IN BOTH PRINTOUT CASES THE PRINTOUTS HAVE THE FOLLOWING 
MEANINGSI 

LOC XXXXXX INDICATES THE ADDRESS OF A CALU TO SUBROUTINE 
"ERR" IN The CASE OF AN "ERROR" PRINTOUT, OR 
THE ADDRESS FRqM WHERE THE PROGRAM "CAUED OUT" IN 
THE CASE OF A "CALERR" PRINTOUT, 

AC»YYYYYY INDIDATES THE CONTENTS OF THE AC AT THE TiME THE 
FAILURE OCCURRED, THE CONTENTS OF THE AC MAY OR 
MAY NOT BE MEANINPrULi DEPENDING ON THE tEST 
ROUTINE. 

TEST 000ZZ2 INDICATES THE NUMBER OF THE TEST ROUTINE BEING 
EXECUTED At THE TIME THE FAILURE OCCURRED, 

WHEN AN "ERROR" TYPE PRINTOUT OCCURS, 

A. IN THE PROGRAM'S LISTING, REFER TO tHE LOCATION SPIClFiED 
BY THE PRINTOUT, OPPOSITE THAT LOCATION THE STATEMENT 
"ERROR" OR "ERRORA" WILL BE PRINTED, IF THE "ERRQRA" STATE' 
MENT APPEARS, IT SPECIFIES THAT THE CONTENTS OP tHE 

AC PRINTED OUT ARE MEANINGFUL. 

B. DOUBLE CHECK THAT THE LOCATION PRINTED IS WITHJN THE TEST 
ROUTINE SPECIFIED BY THE "TEST 000iZ2" PORTION OF THE 
PRINTOUT, 

C. tHE COMMENTS PORTION OF THE "ERROR" STATEMENT WILL 
CONTAIN THE DESCRIPTION FOR THE ERRqR. 

D. AT THE BEGINNING OF THE TEST ROUTINE A DESCRIPTION OF 
THE TEST WILL 8E PRINTED, 
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(6, CONTiD) 

WHEN A "CALERR" TYPE PRINTOUT OCCURSi 

A. IN THE PROGRAM LISTING, REFER TO THE TEST ROUTINE 
REFERENCED BY THE "TEST 0B0ZH2" PORTION oF THE PRINTOUT, 

B. AT THE TOP OF THE TEST ROUTINE A DESCRIPTION OF THE 
TEST WILL BE PRINTED. 

C. ANALYSIS OF THE ROUTINE* AS WELL AS STEPPING THROUGH 
THE ROUTINE IN "SInGLE INSTRUCTION" MODE SHOULD GiVE 
CLUES AS TO HOW THE ERROR IS OCCURRING, 
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RESTRICTIONS 



AT LEAST DURING INITIAL TESTING OF THE SYSTEM, ACS 3-5 MUST 

BE SET TO CORRESPOND WiTH THE ACTUAL NUMBER OF ADDITIONAL 
EXTENDED MEMORY PAGES (1 MEMORY PAGE ■ 4K), SETTING THE 
SWITCHES TO INDICATE A LESSER NUMBER DOES NOT PROVE TME 
SYSTEM CONCLUSIVELY. SETTING A LARGER NUMBER WILL CAuSE 
THE PROGRAM TO FAIL. 

THE PROGRAM WlLl NOT RUN ON A 4k SYSTEM, IT ASSUMES A 
MINIMUN OF 8K OF CORE STORAGE, 

B, MISCELLANEOUS 
5.1 EXECUTION TIMES 



THE FOLLOWING EXECUTION TIMES ARE GIVEN FOR A SINGLE 

PROGRAM PASS, ASSUMING A MEMORY CYCLE TiMC OF 800 NANOSECONDS, 

8K,N0 API - 7 SECONDS 

8K AND API - 8 SECONDS 

12K.N0 API ^ 14 SECONDS 

12K AND API - 15 SECONDS 

16K,N0 AP! - 24 SECONDS 

16K AND API - 26 SECONDS 

20K.NO API -^ 32 SECONDS 

20K AND API - 35 SECONDS 

24k.no API - 42 SECONDS 

24K AND API - 46 SECONDS 

28K,N0 API - 53 SECONDS 

2BK AND API •» 56 SECONDS 

32K,N0 API - 63 SECONDS 

32k AND API ■> 67 SECONDS 



PACE 8 



9. 


DESCRIPTIONS 


1 
•IONS 


00000 THROUGH 07777 




9,1 


TERM DEFiNn 






rlELD0 


- LOCATIONS 






FIELOl 


- Locations 


10000 THROUCH 17777 






riELD2 


- locations 


20000 THROUGH 27777 






FIEL03 


- locations 


30000 THROUGH 37777 






FIEL04 


- locations 


40000 THROUGH 47777 






FIELDS 


- locations 


S0000 THROUGH 97777 






FIEL06 


- locations 


60000 THROUGH 67777 






FIEL07 


" locations 


70000 THROUGH 77777 






LOCF0 - 


loc 


06000 








LOCFl - 


loc 


16000 








L0CF2 - 


loc 


26000 








L0CF3 - 


LOC 


36000 








L0CF4 - 


LOC 


46000 








L0CF5 - 


LOC 


S6000 








L'0CF6 - 


LOC 


66000 








L0CF7 - 


LOC 


76000 








F0LOC - 


LOC 


IN FIELD TO INDIRECTLY REFERENCE 


LOCF0 




FILOC - 


lOc 


IN FIELD TO INDIRECTLY REFERENCE 


LOCFl 




F2L0C - 


LOC 


IN FIELD TO INDIRECTLY REFERENCE 


L0Cr2 




FSUOC " 


LOC 


IN FIELD TO INDIRECTLY REFERENCE 


L0CF3 




F4tOC - 


LOC 


IN FIELD TO INDIRECTLY REFERENCE 


L0CF4 




FSLOC - 


LOC 


IN FIELD TO INDIRECTLY REFERENCE 


L0CF5 




F6L0C «■ 


LOC 


IN FIELD TO INDIRECTLY REFERENCE 


L0CF6 




F7L0C - 


LOC 


IN FIELD TO INDIRECTLY REFERENCE 


L0CF7 



PACE 9 



PROGRAM STATEMENTS DEFINITIONS 



THE FOLLOWING STATEMENTS APPEAR THROUGHOUT THE PROGRAM'S 
TEST ROUTlNESi THEIR MEANING JS DESCRIBED HERE, 

ERROR - CALL To AN ERROR SUBROUTINE WHOSE PURPOSE IS To 

GENERATE AN ERROR PRINTOUT AND HALT. THE SUBROUTINE 
RETURNS TO NEXt INSTRUCTION AFTER THE SUBROUTINE 
CALL. 

CHAIN " CALL TO CHAINING SUBROUTINE WHOsE FUNCTION IS TO 

CONTROL PROGRAM SEQUENCEi AND HqNOR ACS OPTIONS, IF 

ROUTINE HAS nOt BEEN COmPLCTCDi THE SUBROUTINE 

RETURNS TO THE NEXT INSTRUCTION AFTER SUBROUTINE 
CALL, 

tr2 - CALL TO SUBROUTINE WHOSE FUNCTION IS TO DETERMINE IF 
MEMORY FIELD 2 IS PRESENT, IF THE FIELB IS PRESENT 
THE SUBROUTINE RETURNS TO THE NEXT INSTRUCTION AFTER 
THE SUBROUTINE CALL. !F THE PIElD IS NOT PRESENT THE 
TEST ROUTINE IS BYPASSED, 

tF3 - SAME AS TFZ, BUt CHECKS FOR FIELD 3, 

fF3 - SAME AS TF2, BUT CHECKS FOR FIELD *, 

tF5 - SAME AS TF2i BUT CHECKS FOR FIELD 9i 

TF6 - SAME AS TF2, BUT CHECKS FOR FIELD 6, 

fF7 - SAME AS TF2, BUf CHECKS FOR FIELD 7. 

CKAPi - CALL TO SUBROUTINE WHOSE FUNCTION IS TO DETERMINE IF 
API IS PRESENT IN THE SYSTEM, IF API IS PRESENT. THE 
SUBROUTINE RETURNS TO THE INSTRUCTION AFTER tHE 
SUBROUTINE CALL. IF API IS NOT PRESENT, THE TEST 
ROUTINE IS BYPASSED, 

STFN - CALL To SUBROUTINE WHOSE FUNCTION IS TOl 

A, SET EACH AVAILABLE EXTENOEO MEMORY FIELD TO 0'S, 

(FIELDS 1 THROUGH 7), 
Bi ZERO OUT LOCATIONS 06000 THrOUQH 07777 OF FIELD 0. 
C, SET LOCATION 6000 OF EACH MEMORY FIELD TO ITS OWN 
NUMBER, (6000 OF FIELD 1 IS SET TO A 1, ETC,,), 

UPON COMPLETION THE SUBROUTINE RETURNS TO THE 
INSTRUCTION FOLLOWING THE SUBROUTINE CALL. 

MOVE - CALL TO SUBROUTINE WHOSE FUNCTIONS IS TO MOVE A 

VARIABLE LENGTH WORD STRING FROM ONE AREA TO ANOTHER. 
THE SUBROUTINE CALL FORMAT ISi 

MOVE /JMS To MOVING SUBROUTINE 

XXXX /INltlAL ADDRESS TO MOVE "FROM", 

YYYY /INITIAL ADDRESS TO MOVE "TO". 

*iUi /NUMBER OF WORDS TO MOVE (COMPLEMENTED) 

nSI /INSTRUCTION THAT SUBROUTINE RETURNS to. 
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9.3 TEST ROUTINES DESCRIPTIONS 



EACH OF THE TESTS DESCRIBED BELOW IS CONDUCTED ON ONE FIELD 
AT A TIMEi IT IS IMPORTANT TO BE AWARE OF TME STATE OP THE 
OTHER MEMORY FIELDS WHEN A TEST IS BEING CONDUCTED. EXCEPT 
FOR TESTS T0 THROUGH T*. THE FOLLOWING OPERATIONS ARE PER- 
FORMED BEFORE A TEST IS flUNi 

A. ALL EXTENDED MEMORY FIELDS ARE SET TO 0'S. 

B. LOCATIONS 06000 THROUGH 07777 OF FIELD ARE SET TO 0iS, 

C. LOCATIONS 06000 oF EACH MEMORY FIELD IS SET TO ITS OWN 
MEMORY FIELD NUmBEr (E.S. LOC 06000 OF FIELD 7 IS SET 
to 000007 J'. 

EXCEPT WHERE SPECIFIED, ALL ROUTINES RUN IN IS MODE (INDEX" 
MODE) . 

ROUTINES T0 THRQUSH T6 TEST THAT PERFORMING A OAC IN A LO- 
CATION IN AN EXTENDED FIELD DOES NOT ALTER THE CONTENTS OF 
THE rOUlVALENT LOCATION JN FIELD 0. 

ROUTINES T7 THROUGH Tl5 TEST THAT THE ALL I'S DATA STORED 
IN AN EXTENDED FIELD CAN Bf FETCHED BACK CORRECTLY, IF THE 
DATA IS NOT ALL I'S, THEN THE NUMBER IN THE AC INDICATES THE 
NUMBER or THE FIELD THAT WAS INCORRECTLY ADDRESSED, 

ROUTINES T16 THROUGH T24 TEST THAT AN XCT* OF A NOP INSTRUC- 
TION IN AN EXTENDED FlELO DOES- NOT GIVE CONTROL TO THE EX- 
TENDED FIELD, 

ROUTINES T25 THROUGH T33 TEST THAT AN XcT« OF A LAC 6000 
INSTRUCTION IN AN EXTENDED FIELD FETCHES DATA IN THE EX- 
TENDED FIELD AND NOT FROM FJELO 0. 

ROUTINES T34 THROUGH T42 TEST AN XCT« Of A LAC* 6001 IN- 
STRUCTION IN AN EXTEND FIELD, THE LAC* 6001 INSTRUCTION 
SHOULD REFERENCE THE EXTENDED FIELD IT IS iN TO OBTAIN 
THE JNDIRECT POINTER. 

ROUTINES T43 THROUGH T51 TEST AN XCT* OF A JMP« 6001 IN- 
STRUCTION IN AN EXTENDED FIELD. THE JMP» 6001 INSTRUCTION 
SHOULD OBTAIN ITS INDIRECT POINTER FROM THE FIELD IT IS 
IN, AND THEN JUMP TO FIELD 0, 
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(9i3 CONT'D) 

ROUtlNCS T52 THROUGH T60 TEST THAT A JMP» 600i INSTRUCTION 
JN AN EXTENDED riEUO CAN SUCCESSFULLY JUMP BACK TO TlELD 0, 

ROUtlNES T61 THROUGH T67 T|ST THAT A SKp INSTRUCTION OPERATES 
CORRECTLY IN AN EXTENDED FfELO, 

ROUTINES T70 THROUGH T76 TEST FOR CORRECT OPERATION Of THE 
SAO INSTRUCTION WHEN EXECUTED IN AN EXTENDED FIELD, 

ROUTINES T77 THROUGH Tl05 TEST THAT A JmS INSTRUCTION IN 

AN EXTENDED FIELD CORRECTLY STORES PC 3-5 AT THE LOCATION JMS'EO TO, 

ROUTINES T106 THROUGH T114 TEST THAT A CAL* INSTRUCTION 

IN AN EXTENDED FIELD REFERENCES FIELD 0, AND THAT PC BITS 3 THROUGH 

5 ARE CORRECTLY STORED AT tHE LOCATION INDIRECTLY CAlED TO, 

ROUTINES T115 THROUGH T123 TEST THAT A JMP« 10 INSTRUCTION 
IN AN EXTENDED FIELD REFERENCES AUTO-INoEX REGISTER 10 IN 
FIELD 0. ALSO BY PRlMlNC AUTO-INOEX REG 10 TO A LOCATION 
POINTING TO FIELD 0, CHECKS THAT THE JUmP Can BE SUCCESSFULLY 
COMPLETED TO FIELD 0i INSTEAD OF TO THE EXTENDED FIElO, 

ROUTINES T124 THROUGH T132 TEST THAT AN INTERRUPT CAN TAKE 
PLACE FROM AN EXTENDED FIElDi AND THAT PC BITS 3 THROUGH 5 
ARE CORRECTLY STORED IN LOC OF FIELD 0i 

ROUTINES T133 THROUGH tl41 TEST IN 9 MOoE. THAT WHEN PER- 
FORMING AN XCT« OF A Lac INSTRUCTION IN AN EXTENDED FIELD. 
THE LAC INSTRUCTION REFERENCES THE EXTENDED FIELD IT IS IN, 
AND NOT FIELD 0. 

ROUTINES T142 THROUGH T150 TEST IN 9 MOoE. THAT WHEN 
PERFORMING AN XCT« OF A JMp» IN AN EXTENDED FIELD* THE 
^MP* INSTRUCTION GETS ITS INDIRECT POINTER FROM THE EXs 
TENDED FIELD It IS IN» AND NOT FROM FIELD 0. 

ROUTINE T191, 9 MOOE, tESTS THAT DATA In FIELD 1 CAN BE 
DIRECTLY ACCESSED FROM FIELD 0i 

ROUTINE T152, 9 MODE, TESTS THAt DATA IN FIELD CAN BE 
DIRECTLY ACCESSED FROM FIELD I, 
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:9.3 CONT'D) 



ROUTINE T155, 9 MOOE. TESTS THAT DATA IN FIELD 3 CAN BE 
DIRECTLY ACCESSED FRQM FIELD 2i 

ROUTINE T154. 9 MODE. TESTS THAT DATA IN FIELD 2 CAN BE 
DIRECTLY ACCESSED FROH FIELD ?, 

ROUTINE tl95. 9 MODE. TESTS THAT DATA IN FIELD 9 CAN BE 
DIRECTLY ACCESSED FROM FIELD 4, 

ROUTINE tl56. 9 MODE. TESTS THAt DATA IN FIELD 4 CAN BE 
DIRECTLY ACCESSED FROM FIELD 3, 

ROUTINE ti57, 9 MODE, TESTS THAT DATA iN FIELD 7 CAN B| 
DIRECTLY ACCESSED FROM FIELD 6i 

ROUTINE TUB, 9 MODE. TESTS THAT DATA IN FJELO 6 CAN BE 
DIRECTLY ACCI88E0 FROM FIIlO Ti 

ROUTINES Tiit THROUGH T167 ARE OPTIONAI. TESTS FOR SYSTEMS 
WITH API, THE API BREAK IS GENERATED lY A SOFTWARf BREAK 
THAT BREAKS TO LOC40 0^ FIELD 0, THE ROUTINES TEST THAT 
AN API BREAK CAN TAKE PLACE FROM AN EXTENDED FIELD, AND THAT 
PC BITS 3 THROUGH S ARE CORRECTLY STORED AT THE LOCATION 
JMSED TO PROM LOC «0, 
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EXM15 



/PnP-l>i EXTENDED MEMORY TEST aND E><TENOFn MEMORY aPI TeST 

/ 

/COPYRIGHT I970, DIGITAL EQUIPMENT CORP.. MaYNaRQ, MaSS, 



. A8S 

006000 LOC=6000 

006000 LOCF0=LOC 

016000 LOCFi=LOC+l0000 

026000 LOCF2=LOC*20000 

036000 LOCF3=LOC+30000 

046000 LOCF4=LOC+40000 

056000 LOCF'5 = LOC + '50000 

066000 LOCF6=LOC+60000 

076000 LOCF7=LOC+70000 

000001 Ll=l 

010001 LlFi=i000i 

020001 LlF2=20001 

030001 LlF3=3000i 

040001 LiF4=40001 

050001 LlF5=50001 

060001 11^6=60001 

070001 LlF7=70001 

000000 L0=0 

000000 L0F0=0 

010000 L0Fl=10000 

020000 L0F2=20000 

020000 L0F3=20000 

030000 L0F4=30000 

050000 L0F5=50000 

060000 L0F6=60000 

070000 U0F7=70000 

000010 L10=10 

000010 Ll0F0=00010 

010010 L10F1=10010 

020010 L10F2=20010 

030010 L10F3=30010 

040010 L10F4=40010 

050010 L10F5=50010 

060010 L10F6=60010 

070010 L10F7=70010 

000020 L20=20 

000020 L20F0=20 

010020 L20Fl=10020 

020020 L20F2=20020 

030020 L20F3=30020 

040020 L20F4=40020 

050020 L20F5=50020 

060020 L20F6=60020 

070020 L20F7=70020 

000040 L40=40 

000040 L40F0=40 

010040 L40F1=10040 

020040 L40F2=20040 

030040 L40F3=30040 

040040 L40F4=40040 
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EXM15 



050040 


L40F5=50040 




060040 


L40F6=60040 




070040 


l.40F7 = 7004(^ 




010000 


KlPiK = l(fl0PI0 




020000 


K20K=20000 




030000 


K30K=30000 




040000 


K40K=40000 




050000 


K50K=50000 




060000 


K60K=60000 




070000 


K70K=7C000 




404000 


K404K=404000 




742030 


SWA=742030 


/SWAP AC HALVES 


707762 


FPAr707762 


/ASSERT 15 MODE 


milk«, 


F.BA = 707764 


/ASSERT q MODE 


-izntx 


EXBA=707761 


/SKIP IF 15 MODE 


735000 


CLX=735000 

.EJECT 


/CLEAR XR 
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EXM15 



0PI10« 






.LOC 


!?0i0e 


006000 


F0LOC 


LOCF0 


?PI101 


016000 


FlLOC 


LOCFl 


00102 


026000 


F2L0C 


L0CF2 


00103 


036000 


F3L0C 


L0CF3 


00104 


046000 


F4L0C 


L0CF4 


00105 


056000 


F5L0C 


L0CF5 


00106 


066000 


F6L0C 


L0CF6 


00107 


076000 


F7L0C 


L0CF7 


00110 


010001 


FlLl 


LlFl 


00111 


020001 


F2L1 


L1F2 


00112 


030001 


F3L1 


LlF3 


00113 


040001 


F4L1 


L1F4 


00114 


050001 


F5Li 


L1F5 


00115 


060001 


F6L1 


LlF6 


00116 


070001 


F7Ll 


L1F7 


00117 


000000 


F0L0 


L0F0 


00120 


010000 


FlL0 


L0F1 


00121 


020000 


F2L0 


L0F2 


00122 


020000 


F3L0 


L0F3 


00123 


030000 


F4L0 


L0F4 


00124 


050000 


F5L0 


L0F5 


00125 


060000 


F6L0 


L0F6 


00126 


070000 


F7L0 


L0F7 


00127 


000010 


F0L10 


L10F0 


00130 


010010 


F1L10 


L10F1 


00131 


020010 


F2L10 


L10F2 


00132 


030010 


F3L10 


L10F3 


00133 


040010 


F4L10 


L10F4 


00134 


050010 


F5L10 


L10F5 


00135 


060010 


F6L10 


H(^F6 


00136 


070010 


F7L10 


L10F7 


00137 


000020 


F0L20 


L20F0 


00140 


010020 


F1L20 


L20F1 


00141 


020020 


F2L20 


L20F2 


00142 


030020 


F3L20 


L20F3 


00143 


040020 


F4L20 


L20F4 


00144 


050020 


F5L20 


L20F5 


00145 


060020 


F6L20 


L20F6 


00146 


070020 


F7L20 


L20F7 


00147 


001162 


KSTART 


T0 


00150 


000000 


NXTST 





00151 


000000 


CURTST 





00152 


000000 


TEMP 





00153 


000000 


CTRA 





00154 


000000 


CTRB 





00155 


000000 


EAC 





00156 


000000 


ELOC 



.EJECT 



10? 
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00177 






.LOC 


177 




00177 


000000 


RTNNO 









00200 


100657 




TYPE 




/TYPE TiTLf AND 


00201 


001101 




P0MsG 




/INSTRUCTIONS 


0020? 


100576 




JMS 


CHLT 


/HALT 


00203 


750004 


START 


LAS 




/CHECK That CPU has more 


00204 


505215 




ANO 


(K70K 


/THAN 4K MEMORY. 


00205 


740200 




S2a 




/MORE Than 4K? 


00206 


6002I3 




JMP 


GETRDY 


/YES. 


00207 


100657 




TYPE 




/NO. TYPf fRROR MESSAGE. 


00210 


001050 




MEMERR 






00211 


100576 




JMS 


f^HLT 


/HALT. 


00212 


600203 




JMp 


START 




00213 


200147 


GETRDY 


LAC 


KSTaRT 


/GET 1ST RTN ADDRESS 


00214 


040150 




DAC 


NXTST 


/STORE AT NXTST 


0021 5 


100254 




JMS 


rORWo 


/GO SET UP FOR NEXT TEST 


00216 


100301 




SETA 




/SET cTRa TO 


00217 


770000 




770000 




/-4096 


00220 


707762 




EPA 




/ASSERT 15 MODE 


00221 


735000 




CLX 




/CLEAR XR 


00222 


620151 




JM1=« 


CURTST 


/GO TO NEXT TEST. 


00223 


000000 


CHAINN 









0'0224 


700002 




lOF 






00225 


707762 




EPA 




/ASSERT 15 MODE 


00226 


205216 




LAC 


(JMP CALERR 




00227 


040021 




DAC 


21 




00230 


140020 




DzM 


20 




00231 


140000 




DZM 







00232 


750004 




LAS 




/READ ACS 


00233 


740010 




RAL 






00234 


741100 




SPA 




/LOOP ON ROUTINE?(ACSi) 


00235 


620223 




JMP» 


CHAINN 


/YES. 


00236 


440I53 




ISi 


CTRA 


/DONE N TIMES? 


00237 


620223 




JMP* 


CHaINN 


/no.rePeaT Test. 


00240 


750004 


CHAI(.jA 


LAS 




/READ ACS 


00241 


740100 




SMA 




/HALT AT END OF TEST?(AC50) 


00242 


600245 




JMP 


.+3 


/NO. 


00243 


200177 




LAC 


RTNNO 


/YES. GET TEST NUMBER. 


00244 


100576 




JMS 


CHLT 


/HALT, TEST NUMBER IN AC. 


00245 


200150 




LAC 


NXTST 




00246 


345217 




TAD 


(1 




00247 


750200 




S2A!ClA 




/LAST TEST? 


00250 


600215 




JMP 


GETRDY+2 


/NO. PROCEED TO NExT TEST 


00251 


205220 




LAC 


(207 


/GET BELL CODE 


00252 


100567 




JMS 


TTOUT 


/RING Teletype bell 


00253 


600213 




JMP 


GETRDY 


/START OVER. 


00254 


000000 


rORWD 









00255 


220150 




LAG* 


NXTST 


/GET NEXT TEST NUmRER. 


00256 


040177 




DAC 


RTNNO 


/STORE AT RTNNO. 


00257 


440150 




IS? 


NXTST 




00260 


200150 




LAC 


NXTST 


/GET CURRENT TEST NUMBER 


00261 


040152 




DAC 


TEMP 


/STORE AT TEMP 


00262 


440150 




ISi 


NXTST 




00263 


200150 




LAC 


NXTST 


/GET CURRENT TEST ADDRESS. 


00264 


040151 




OAC 


CURTST 
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00266 


220152 


00266 


040150 


00?67 


620254 


00270 


000000 


00271 


220270 


00272 


040152 


00273 


440270 


00274 


220270 


00275 


060^52 


00276 


440270 


00277 


754000 


00300 


620270 




100270 


00301 


000000 


00302 


220301 


00303 


040307 


00304 


440301 


00305 


100270 


00306 


000153 


00307 


000000 


00310 


620301 




100301 


00311 


000000 


0031? 


220311 


00313 


040333 


00314 


440311 


00315 


220311 


00316 


040334 


00317 


440311 


00320 


220311 


00321 


040335 


00322 


440311 


00323 


220333 


00324 


060334 


00325 


440333 


00326 


440334 


00327 


440335 


00330 


600323 


00331 


754000 


00332 


620311 


00333 


000000 


00334 


000000 


00335 


000000 




100311 





LAC« 


TEMP 




DAC 


NXTST 




JMP» 


rORWD 


/Subroutine to 


SFT A LOC 


STCTR 









LAC» 


STCTR 




DAC 


TEMP 




IS? 


STCTR 




LAC» 


STCTR 




DAC« 


TEMP 




ISZ 


STcTR 




CLAICLL 






JMP» 


STCTR 


SETLOC 


=JMS STCTR 


/SUBROUTINE TO 


SET cTRa 


STCTA 









LAC« 


STCTA 




DAC 


.♦4 




isz 


STCTA 




SETLOC 






CTRA 













JMP« 


STCTA 


SETa=JMS STCTA 




/SUBROUTINE TO 


MOVE VaRI 


MOVVE 









LAC» 


MOVVE 




OAC 


FAODR 




ISZ 


MOVVE 




LAC» 


MOVVE 




DAC 


TADDR 




ISZ 


MOVVE 




LAC» 


MOVVE 




DAC 


MCTR 




IS? 


MOVVE 


MOVEA 


LAC« 


FAODR 




DAC» 


TADDR 




ISZ 


FADQR 




ISZ 


TADDR 




ISZ 


MCTR 




JMP 


MOVEA 




CLAICLL 




JMP» 


MOVVE 


FAddR 







TADDR 







MCTR 







MOVE=JMS 


MOVVE 



/SET NEXT Test address. 

/EXIT. 
aTION TO SPECIFIED VALuE . 

/GET LOc ADDR AND 
/SAVE AT TEMP. 

/GET VALUE AND STORE 
/aT desired LOCATION 

/CLEAR AC, LINK 
/EXIT. 

TO SPECIFIED Value. 

/GET DESIRED VALUE, 

/SET UP TO EXIT. 
/CALL ON STCTR TO 
/SET CTRA TO 

/THIS Value (variable). 

/EXIT 
ABLE LENGTH FIELDS 

/GET AND STORE "FROM" 
/ADDRESS 

/GET AND STORE "TO" 
/ADDRESS. 

/GET AND STORE "MOVE COUNT" 



/GET "FROM" WORD 

/STORE AT "TO" LOCATION 

/UPd*TE "T0"AND "FROM" 

/ADDRESSES. 

/DONE MOVING? 

/NO. GO MOVE ANOTHER WORD, 

/YES. DONE. EXIT. 



.EJECT 



PAGE 



EXM15 



00336 


000000 


00337 


100474 


00340 


600354 


00341 


100467 


00342 


600363 


00343 


100462 


00344 


600372 


00345 


100455 


00346 


600401 


00347 


100450 


00350 


600410 


00351 


100443 


00352 


600417 


00353 


600426 


00354 


165215 


00355 


100311 


00356 


070000 


00357 


070001 


00360 


770001 


00361 


205221 


00362 


060107 


00363 


165222 


00364 


100311 


00365 


060000 


00366 


060001 


00367 


770001 


00370 


205223 


00371 


060106 


00372 


165224 


00373 


100311 


00374 


050000 


00375 


050001 


00376 


770001 


00377 


205225 


00400 


060105 


00401 


165226 


00402 


100311 


00403 


030000 


00404 


030001 


00405 


770001 


00406 


205227 


00407 


060104 


00410 


165230 


00411 


100311 


00412 


020000 


00413 


020001 


00414 


770001 


00415 


205231 


00416 


060103 


00417 


165230 


00420 


100311 


00421 


020000 


00422 


020001 


00423 


770001 


00424 


205232 



SfiTNUM 



STf7 



STr6 



STF5 



STF4 



STF3 



STF2 





JMS 

JMP 

JMs 

JMP 

JMS 

JMP 

JMS 

JMP 

JMs 

JMP 

JMS 

JMP 

JMP 

0?M» 

MOVE 

L0F7 

L0F7+1 

-7777 

LAC 

DAC» 

DZM» 

MOVE 

L0F6 

L0F6+1 

-7777 

LAC 

DAC» 

OZM, 

MOVE 

L0F5 

L0F5+1 

-7777 

LAC 

DAC» 
DEM*. 

MOVE 

L0F4 

L0F4+1 

-7777 

LAC 

DAC» 

OEM* 

MOVE 

L0F3 

L0F3+1 

-7777 

LAC 

DACe 

D2M» 

MOVE 

L0F2 

L0F2+1 

-7777 

LAC 



TSTF7 

STf7 

TSTE6 

STF6 

TSTF5 

STF5 

TSTF4 

STF4 

TSTF3 

STF3 

TSTF2 

STF2 

STfI 

(L0F7 



(7 

F7L0C 

(L0F6 



(6 

F6L0C 

(L0F5 



<5 

F5L0C 

(L0F4 



(4 

F4L0C 

(L0F3 



(3 
F3L0C 

(1-0F2 



/SUB TO «;et field numbers, 

/FIELD 7? 

/YES. 

/FIELD 6? 

/YES. 

/NO. FIELD 5? 

/YES, 

/NO. FIELD 4? 

/YES. 

/NO, FIELD 3? 

/YES. 

/NO. FIELD 2? 

/YES, 

/NO. GO SET FIELD 1. 

/gERO OUT EiElD 7 



/7 TO L0CF7 

/ZERO OUT FIELD 6 



/6 TO L0CF6 
/2ER0 OUT FIELD 5 



/5 TO L0CF5 
/ZERO OUT FIELD 4 



/4 TO L0CF4 
/ZERO OUT FIELD 3 



/3 TO L0CF3 
/ZERO OUT FIELD 2 



(2 



/2 TO L0CF2 
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00425 


06«102 


00426 


165233 


00427 


100311 


00430 


018000 


00431 


010001 


00432 


770001 


00433 


205217 


00434 


060101 


00435 


146000 


00436 


100311 


00437 


006000 


00440 


006001 


441 


776002 


00442 


620336 


00443 


000000 


00444 


100501 


00445 


020000 


00446 


440443 


00447 


620443 


00450 


000000 


00451 


100501 


00452 


030000 


00453 


440450 


00454 


620450 


00455 


000000 


00456 


100501 


00457 


040000 


00460 


440455 


00461 


620455 


00462 


000000 


00463 


100501 


00464 


050000 


00465 


440462 


00466 


620462 


00467 


000000 


0047« 


100501 


00471 


060000 


00472 


440467 


00473 


620467 


00474 


000000 


00475 


100501 


00476 


070000 


00477 


440474 


00500 


620474 


00501 


000000 


00502 


750004 


00503 


505215 


00504 


740001 


00505 


345217 


00506 


360501 


00507 


440501 


00510 


741300 


00511 


440501 


00512 


620501 



STFi 



/ 
TSTr2 



TSTF3 



TSTr4 



TSTF5 



TSTF6 



TSTF7 



TSTFX 



DAC» 

MOVE 

L0F1 

L0Fin 

-7777 

LAC 

OAC» 

DEM 

MOVE 
LOCF0 
LOCF0+1 
-7776+LOCF0 



F2L0C 
<LPFi 



(1 

FlLOC 

LOCF0 



JMP» 



JMS 
20000 
IS? 

Jmp« 


JMS 

30000 

ISi 

JMP» 



JMS 

40000 

IS? 

Jmp» 


JMS 

50000 

IS2 

JMP» 



JMS 

60000 

IS2 

Jmp» 



JMS 
70000 
IS? 

Jmp» 


LAS 

AND 

CMA 

TAD 

TAO« 

IS2 

SPAiSNA 

ISZ 

JMP« 



SBFNUM 



TSTFX 

TSTF2 
TSTF? 

TSTFX 

TSTF3 
TSTF3 

TSTFX 

TSTF4 
TSTr4 

TSTFX 

TSTF5 
TSTF5 

TSTFX 

TSTF6 
TSTF6 

TSTFX 

TSTF7 
TSTF7 



( 70000 

(1 

TSTFX 

TSTFX 

TSTFX 
TSTFX 



/2ER0 OUT riFLn 1 

/I TO Locri 
/ZERO TO LOCF0 

/EXIT 

/FIELD ?? 

/NO. 
/YEs. 

/FIELD 3? 

/NO. 
/YES. 

/FIELD 4? 

/NO. 
/YES. 

/FIELD 5? 

/NO. 
/YEs. 

/FIELD 6? 

/NO. 
/YES. 

/FIELD 7? 

/NO. 
/YEs. 



/FIELD IN SYSTEM? 

/YES. 

/NO. 
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100336 


00'5l3 


000000 


00514 


100443 


«0515 


620513 


00516 


600240 


00517 


000000 


00520 


100450 


00521 


620517 


00522 


600240 


00523 


000000 


00524 


100455 


00525 


620523 


00526 


600240 


00527 


000000 


00530 


100462 


00531 


620527 


00532 


600240 


00533 


000000 


00534 


100467 


00535 


620533 


00536 


600240 


00537 


000000 


00540 


100474 


00541 


620537 


00542 


600240 




100513 




100517 




100523 




100527 




100533 




100537 


00543 


000000 


00544 


750004 


00545 


505234 


00546 


751200 


00547 


600240 


00550 


703304 


00551 


140040 


00552 


100311 


00553 


000040 


00554 


000041 


00555 


777741 


00556 


620543 




100543 


00557 


000000 


00560 


700401 


00561 


741000 


00562 


620557 


00563 


700406 


00564 


700401 


00565 


600564 


00566 


620557 


00567 


000000 


00570 


700406 



STTN: 
CF? 



Cf3 



Cfi 



CF5 



CF6 



CF7 



TF2=JMS 

TF3=JMs 

TF4=JMS 

Tr5=JMS 

TF6=JMS 

TF7=JMS 

/ 

CAP! 



jms Srfnum 


JMS 

JMPa 

SK IP 



JMS 

JMP» 

SKIP 



JMS 

JMP« 

SKIP 



JMS 

JMP» 

SKIP 



JMS 

JMP» 

SKIP 



JMS 

JMP* 

SKIP 

CF2 

CF3 

CF4 

CF5 

CF6 

CF7 




LAS 
AND 

SNA -CLA 
SKIP 
DBK 
D2M 
MOVE 
40 
41 
-37 
JMP» 
CKAPJrJMs CAPI 



STFLG 



TTOUT 




TSF 

SKP 

JMP» 

TLS 

TSF 

JMP 

JMP» 



TLS 



TSTF? 
CF? 



tStF3 

rF3 



TStF4 
CF4 



TStF5 
CF5 



TStF6 
CF6 



TSTF7 
CF7 



(4000 



40 



CAP[ 



STFLG 



.-1 
STFLG 



/flELO 2? 

/vEs. 

/NO. 

/FIELD 3? 

/YES, 

/NO. 

/FIELD 4? 

/VES. 

/N'O. 

/FIELD 5? 
/YES. 

/NO. 

/FIELD 6? 

/YES. 

/NO. 

/FIELD 7? 
/YES. 

/NO. 



/READ ACS 

/API PRESENT? 
/NO 

/SET LOCATIONS 
/40 THROUGH 77 
/TO ALL 0'S 



/EXjT 

/SUB TO SET TELEPRINTER FLAG 

/FLAG SET? 

/NO. 

/YES. EXIT 

/START PRINTER 

/HAiT For Flag. 

/EXIT. 
/PRINT CHAR 
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00571 


700401 


0057? 


600571 


00573 


70040? 


00574 


750000 


0057B 


620567 


00576 


000000 


00577 


740040 


00600 


620576 


00601 


000000 


0060? 


740040 


00603 


620601 


00604 


000000 


00605 


040155 


00606 


200604 


00607 


040156 


00610 


100651 


00611 


620604 


00612 


100657 


00613 


001021 


00614 


100627 


00615 


620604 


006l6 


040I55 


00617 


200020 


00620 


040156 


00621 


100651 


00622 


620151 


00623 


100657 


00624 


001025 


00625 


100627 


00626 


620151 


00627 


000000 


00630 


200156 


00631 


505235 


00632 


345236 


00633 


040156 


00634 


100751 


00635 


000156 


00636 


001033 


00637 


100751 


00640 


000155 


00641 


001040 


00642 


100751 


00643 


000177 


00644 


001045 


00645 


100657 


00646 


001031 


00647 


100601 


00650 


620627 


00651 


000000 


0065? 


750004 


00653 


742010 


00654 


740100 


00655 


440651 


00656 


620651 



CHLT 



CEHLT 



ERR 



CALERR 



CETYP 



CSCOP 



TSF 




JMP 


.-1 


TCF 




CLA 




JMP» 


TTOUT 







HLT 




JMP» 


CHLT 







HLT 




JMP» 


CEHLT 







OAC 


EAC 


LAC 


FRR 


OAC 


ELOC 


JMS 


CSCOP 


JMP» 


FRR 


TYPE 




ERRMSG 




JMS 


CETYP 


JMP* 


ERR 


DAC 


EAC 


LAC 


20 


OAC 


ELOC 


JMs 


CSCOP 


JMP» 


CURTST 


TYPE 




CALMSG 




JMS 


CETYP 


JMP» 


CURTST 







LAC 


ELOC 


AND 


(377777 


TAD 


(-1 


OAC 


ELOC 


JMS 


OCNV 


ELOC 




ALOC 




JMS 


OCNV 


EAC 




AACA 




JMs 


OCNV 


RTNNO 




ARTN 




TYPE 




CEMSG 




JMS 


CEHLT 


JMPfl 


CETYP 







LAS 




RTL 




SMA 




IS2 


CSCOP 


JMP» 


CSCOP 


.EJECT 





/WAIT FOR FLAG, 

/CLEAR FLAG. 
/CLEAR AC 
/EMT 
/COMMAND HALT 



/COMMON FRROR HALT 
/EXIT 

/SAVE AC 

/SAVE ERROR CALL L0CAT!0\ 

/SCOPE LOOP? 

/YES, EXIT 

/NO. TYPE "ERROR" 

/COMMON ERROR TYPEOUT AND HALT 

/EXIT 

/SAVE AC 

/Save cal call location 

/SCOPE loop? 

/YES, 

/no. TYPf CALERR 

/COMMON ERROR TYPEOUT aNO HaLT . 

/Go To start of test 



/CONVERT ERROR CALL LOCATION 
/TO PRINTABLE ASCII 

/CONVERT AC CONTENTS TO 
/PRINTABLE ASCII 

/CONVERT TEST NjMBEr tO 
/PRINTABLE ASCII 

/TYPE COMMON ERROR MESSAGE 

/GO TO COMMON ERROR HALT. 

/READ ACS 

/SCOPE LOOP? 

/NO. 

/YES. EXIT. 
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00657 


000000 


00660 


220657 


00661 


040747 


0066? 


140746 


00663 


440657 


00664 


220747 


00665 


742010 


00666 


742010 


00667 


742010 


0067fi 


740010 


00671 


100703 


00672 


220747 


00673 


742020 


00674 


742020 


00675 


742020 


00676 


100703 


00677 


220747 


00700 


100703 


00701 


440747 


00702 


600664 


00703 


000000 


00704 


505237 


00705 


040750 


00706 


200746 


00707 


740200 


00710 


600720 


00711 


200750 


00712 


741200 


00713 


600716 


00714 


100727 


00715 


620703 


00716 


440746 


007I7 


620703 


00720 


140746 


00721 


200750 


00722 


741200 


00723 


620703 


00724 


545237 


00725 


620657 


00726 


600714 


00727 


000000 


00730 


545240 


00731 


600742 


00732 


545241 


00733 


600744 


00734 


345242 


00735 


741100 


00736 


345243 


00737 


345244 


00740 


100567 


00741 


620727 


00742 


760215 


00743 


600740 


00744 


760212 


00745 


600740 



TYP 



TSCi 



TSC2 



TyPAT 



TYPSP 



PRInT 



printa 

PRINTS 
PRINTC 





LAC» 

DAC 

OZ^ 

IS2 

LAC» 

RTL 

RTL 

RTL 

RAL 

JMS 

LAC« 

RTR 

RTR 

RTR 

JMS 

LAC» 

JMS 

IS? 

JMP 



AND 

DAC 

LAC 

SZA 

JMP 

LAC 

SNA 

JMP 

JMS 

JMP, 

ISZ 

JHP» 

02M 

LAC 

SNA 

JMP4 

SAO 

JMP» 

JMP 



SAO 

JMP 

SAO 

JMP 

TAD 

SPA 

TAD 

TAD 

JMs 

JMP» 

LAW 

JMP 

LAW 

JMP 



TYP 

TEMQ 

FLAG 

TYP 

TEMQ 



TSC2 
TEMQ 



TSC2 
TEMQ 
TSC2 
TEMQ 
TSCI 

(77 

TEMR 

FLAG 

TYPSP 
TEMR 

.+3 

PRINT 

TSC2 
FLAG 
TSC2 
FLAG 
TEMr 

TSC2 
(77 
TYP 
TYPaT 

(45 

PRINTB 

(43 

PRINTC 

(-40 

(100 
(240 

ttOut 

PRINT 

215 

PRINTA 

212 

PRINTA 



/GET aNO store string AT^RrsS 

/CLEAR FLAG, 

/SET UP FXlT ADDRESS. 

/GET D&T* WORD 



/TYPE FIRST CHARACTER 



/TYPE 2Nn CHARACTER 

/TYPE 3RD CHARACTER 
/UPDATE OaTa ADDRESS, 



/MASK OFF EXCESS BITS 
/SPECIAL CHAR FLAG SET? 

/YES, 

/NO, GET CHARACTER 
/IS IT 0? 

/YES. SPECIAL Character 

/NO. GO PRINT CHARACTER. 

/EXIT TSC2. 

/GET SPECIAL CHaR FLaG. 

/EXIT TSC2. 

/qLeAR SPECIAL CH*'' FLAG. 

/GET CHARACTER 

/0? 

/YES. IGNORE IT. EXIT TSC2, 

/77? 

/YES. EXIT. TYP SUPROUTINE 

/NO. 

/45? 
/YES. 
/NO. 43? 
/YES. 

/NO. 



/TYPE CHARACTER 

/EXIT PRINT SUB, 

/TYPE CR 

/TYPE LF 
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100657 


fl0746 


000000 


V)0747 


000000 


55075?! 


000000 


00751 


000000 


0075? 


220751 


00753 


04I0I3 


00754 


440751 


00755 


220751 


00756 


041014 


00757 


440751 


00760 


221013 


00761 


742030 


00762 


100767 


00763 


441014 


00764 


221013 


00765 


100767 


00766 


620751 


00767 


000000 


00770 


043015 


00771 


505221 


0077? 


041016 


00773 


201015 


00774 


742010 


00775 


740010 


00776 


505245 


00777 


041017 


01000 


201015 


01001 


742010 


01002 


742010 


01003 


742010 


01004 


505215 


01005 


041020 


01006 


341016 


01007 


341017 


01010 


345246 


01011 


061014 


01012 


620767 


01013 


000000 


01014 


000000 


01015 


000000 


01016 


000000 


01017 


000000 


01020 


000000 


01021 


454305 


01022 


222217 


01023 


224040 


01024 


400077 


01025 


454303 


01fi26 


011405 


01027 


222240 


01030 


40P)077 


01031 


141703 


0103? 


404000 


01033 


404040 



TYPE=JM 


S 


TYP 


FL4G 


?i 




TEMQ 


^ 




TEMR 


? 




OCNV 


(" 






LAC* 


OCNV 




DAC 


WASC 




IS? 


OCNV 




LACe 


OCNV 




DAC 


SASC 




ISH 


OCiVv 




LAC» 


WASC 




SWA 






JMS 


CNV 




IS? 


SASC 




LAC« 


WASC 




JHS 


CNV 




JMP» 


OCNV 


CNV 









DAC 


ASCT 




AND 


(7 




DAC 


01 




LAC 


ASCT 




RTL 






RAL 






AND 


(700 




DAC 


02 




LAC 


ASCT 




RTL 






RTL 






RTL 






AND 


(70000 




DAC 


03 




TAD 


01 




TAO 


02 




TAD 


(606060 




DAC* 


SASC 




JMp« 


CNV 


WASC 







SASC 







ASCT 







01 







02 







D3 







errmsg 


•SlXBT 


•%«FrrOr 



/SUb to cONVfRT CONTENTS OF A WQRO 
/TO PRINTaRLF ASCI I 



P? ' 



CAlhSg .SiXBT 'XSCAlERR 

CEmSG .SlXBT "lOC • 
ALOC .SiXBT ' 
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01034 404040 

0103'5 404040 

01036 010375 .SIXBT 'AC= ■ 

01037 400000 

01040 404040 AACA .SiXBT ' ' 

01041 404040 

01042 404040 

01043 240523 .SIXBT 'TEST ' 

01044 244040 

01045 404040 ARTN .SiXBT ' «»?' 

01046 404040 

01047 007700 

01050 454301 M^mErr .SiXBT •%#ACS 3-5 i Nf^ORRfCTi. Y SET- OR ' 

01051 032340 

01052 635565 

01053 401116 

01054 031722 

01055 220503 

01056 241431 

01057 402305 

01060 245440 

01061 172240 

01062 233123 .SJXBT 'SYSTEM DoES NOT HAVE AT LEAST ' 

01063 240515 

01064 400417 

01065 052340 

01066 161724 

01067 401001 

01070 260540 

01071 012440 

01072 140501 

01073 232440 

01074 701340 .SiXBT '8k Or CQRE.S?' 

01075 170640 

01076 031722 

01077 055600 

01100 770000 

01101 454340 P0MSG .SiXBT '«# PDp-15 EXTEnOED mEmORY TEST' 

01102 200420 

01103 556165 

01104 400530 

01105 240516 

01106 040504 

01107 401505 

01110 151722 

01111 314024 

01112 052324 

01113 454343 .SiXBT •%##SET ACS 3-5 TO NUmBEr oE ADDITIONAL ' 

01114 230524 

01115 400103 

01116 234063 

01117 556540 

01120 241740 

01121 162515 

01122 020522 



page: 13 



EXM15 



{51123 
Ptll?" 
01125 
01126 
01127 
01130 
01131 
01132 
01133 
01134 
01135 
01136 
01137 
01140 
01141 
01142 
01143 
01144 

01145 
01146 
01147 
01150 
01151 
01152 
01153 
01154 
01155 
01156 
01157 
01160 
01161 



401706 

400104 

041124 

111716 

011440 

053024 

051604 

050440 

150515 

172231 

402001 

070523 

405061 

402001 

070540 

754064 

135100 

454311 

064023 

312324 

051540 

100123 

400120 

115440 

230524 

400103 

234066 

402417 

400140 

615600 

770000 



.SiXPT 'EXTENlOrO mFmORY PAGES (1 PAGE = 4k)' 



,SlXBT •%#IF SYSTEM HAS Apl, sET ACS 6 TO A l.S?' 



.EJECT 
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0116? 


000000 


01163 


001173 


?)1164 


146000 


{^1165 


205236 


01166 


060l0l 


01167 


546000 


01170 


100604 


01171 


100223 


0117? 


601164 


01173 


000001 


01174 


001205 


01175 


100513 


01176 


146000 


01177 


205236 


0l?00 


060102 


01201 


546000 


01202 


100604 


01203 


100223 


01204 


601176 


01205 


000002 


01206 


001217 


01207 


100517 


01210 


146000 


01211 


205236 


0I2I2 


060103 


01213 


546000 


01214 


100604 


01215 


100223 


01216 


601210 


01217 


000003 


01220 


001231 


01221 


100523 


01222 


146000 


01223 


205236 


01224 


060104 


01225 


546000 


01226 


100604 


01227 


100223 


01230 


601222 


01231 


000004 


01232 


001243 


01233 


100527 


01234 


146000 


01235 


205236 


01236 


060105 


01237 


546000 



/DAC» FlLOC (LOCF0 SHOuLD NOt RE WOdIFIeO) 



/0 TO LOCF? 



T0 




Tl 






DEM 


LOrFv» 




LAC 


t-3 




DAC» 


FlLOC 




Sad 


LOCF0 




fRROR 






CHA IN 






JMP 


T0 + 2 


/DAC» 


F2L0C aocF0 Should 


Tl 


1 

T2 
TF2 






02M 


LOCF0 




LAC 


(-1 




DAC» 


F2LOC 




Sad 


LOCF0 




Error 






CHAIN 






JMP 


Tl + 3 


/DAC« 


F3L0C (LOCF0 SHOULD 


T2 


2 

T3 

TF3 






DiM 


LOCF(^ 




LAC 


(-1 




DAC« 


F3LOC 




Sad 


LOcr0 




ERROR 






CHAIN 






JMP 


T2 + 3 


/DAC» 


F4L0C (LOCF0 SHOULD 


T3 


3 

T4 
TF4 






D2M 


LOCF0 




LAC 


(-1 




DAC* 


F4LOC 




Sad 


LOCF0 




FRRQR 






CHAIN 






JMP 


T3 + 3 


/OAC» 


F5LOC (LOCF0 SHOULD 


T4 


4 

T5 

TF5 






D2M 


LOCF0 




LAC 


(-1 




DAC* 


F5LOC 




Sad 


LOcr0 



/TRY TO SET LOCFl TQ aLL I'S 
''SKIP IF LOCF0 IS MOT aLL I'S 
/Error. LOCF0 MOHI^IFD By REFERE^JCF 
/TO FIELD 1. 

/NOT DONE. REPEAT TEST. 
MOT BE MODIFIED) 



/RUN IF FIELD 2 AVaILaRLF 
/0 TO LOCF0 

/TRY TO SET aLL I'S Ih LOCF2 
/SKIP IF LOCF0 NOT ALL I'S 
/ERROR. LOCF0 MODIFIED BY REFERENCE 
/TO FIELD 2. 

/NOT DONE. REPEAT TEST. 
NOT CHANGE) 



/RUN IF FIELD 3 AVAILABLE 
/0 TO LOrF0 

/TRY TO SET ALL I'S IN LOCF3 
/SKIP IF LOCF0 NOT aLL I'S 
/ERROR. LOCF0 CHANGED By REFERENCE 
/TO FIELD 3. 

/NOT DONE. REPEAT TEST. 
NOT CHANGE) 



/RUN IF FIELD 4 AVAILABLE 
/0 TO LOCF0 

/TRY TO SET ALL I'S IN LOCF4 
/SKIP IF LOCF0 NOT aLL I'S 
/ERROR. LOCF0 CHANGED BY rEFFREnCE 
/TO FIELD 4, 

/NOT DONE. REPEAT TEST. 
NOT CHANGE) 



/RUN IF FIELD 5 AVAILABLE 
/0 TO LOCF0 

/TRY TO SET LOCF5 TO ALL I'S, 
/SKIP IF LOCF0 NOT ALL I'S, 
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01240 

«1241 
01?42 

«1?43 
«l?'t4 
01245 
01246 
01247 
01250 
01251 
0125? 

01253 
01254 

01255 
01256 
01257 
01260 
01261 
0I262 
01263 
01264 

01265 
01266 



E:XM15 
100604 

100223 
601234 

000005 
001255 
100533 
146000 
205236 
060106 
546000 
l006pi4 

100223 
601246 

000006 
001267 
100537 
146000 
205236 
060107 
546000 
100604 

100223 
601260 



ERROR /ERROR. lOCf? CHANGED RY REFFRFNCE 

/TO r lELD 5. 
CHAIN 

JMP T4+3 /NOT OOnF, REPEAT TEST. 

/OACo F6L0C (LOCF0 s^OijLn NOr CHANGE) 



T5 



5 
T6 

Tr6 

LAC 
DAC« 

Sao 

ERROR 

CHAIN 
JMP 



LOCF0 
(-1 
F6L0C 
LOCF0 



T5 + 3 



/RUN iF FiElP 6 AVAILABLE 
/0 T^ LOCFf 

/TRY TO SET ALL 1 'S IN L0CF6 
/SKIP IF LOCF0 NOT ALL I'S. 
/ERROR. LOrFpi CHANGED BY RfFFRFNcE 
/TO E lELn 6. 

/NOT DONE. REPEAT TEST. 



/DAC« F7LOC (LOCF0 SHOULD NOT CHANGE) 



T6 



6 

T7 

TF7 

DEM 

LAC 

DAC» 

Sad 
Error 

CHAIN 

JMP 

.EJECT 



LOCF0 

(-1 

F7L0C 

LOCF0 



T6 + 3 



/RUN IF FIELD 7 AVAILABLE 
/0 TO LOCFPi 

/TRY TO SET ALL I'S IN LOCF? 
/SKIP IF LOCF0 NOT ALL I'S 
/ERROR. LOCF0 CHANGED PYREFErEnCF 
/TO FIELD 7. 

/NOT DONE REPEAT TEST. 
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/TEST 


LAC» EILOC 


01267 


000007 


T7 


7 




01270 


001303 




T1C1 




01271 


100336 




STfN 




01272 


205236 




LAC 


(-1 


01273 


060101 




DACe 


FiLOC 


01274 


750000 




CLA 




01275 


220101 




LAC« 


FiLOC 


01276 


545236 




SAO 


(-1 


01277 


741000 




SKP 




01300 


100604 




ERRORa 




01301 


100223 




CHAIN 




01302 


601272 


/TEST 


JMP 
LAC»F2L0C 


T7*3 


01303 


000010 


Tx0 


10 




01304 


001320 




Til 




01305 


100513 




TF2 




01306 


100336 




STFN 




01307 


205236 




LAC 


(-1 


01310 


060102 




oac« 


F2L0C 


01311 


750«00 




CLA 




01312 


220102 




LAC» 


F2L0C 


01313 


545236 




SAD 


(-1 


01314 


741000 




SKP 




01315 


100604 




errora 




01316 


100223 




CHAIN 




01317 


601307 




JMP 


Till + 4 






/TEST 


LAC» F3L0C 


01320 


000011 


Til 


11 




01321 


001335 




T12 




01322 


100517 




TF3 




01323 


100336 




STFN 




01324 


205236 




LAC 


(-1 


01325 


060103 




DAC» 


F3L0C 


01326 


750000 




CLA 




01327 


220103 




Lac» 


F3L0C 


01330 


545236 




SAD 


(-1 


01331 


741000 




SKP 




01332 


100604 




ERRORA 




01333 


100223 




CHAIN 




81334 


601324 




JMP 


Tll + 4 






/TEST 


LAC* F4L0C 


01335 


000012 


Ti2 


12 




01336 


001352 




Tl3 




01337 


100523 




TF4 




01340 


100336 




STFN 




01341 


205236 




LAC 


(-1 


01342 


060104 




OAC« 


F4L0C 


01343 


750000 




CLA 




01344 


220104 




LACe 


F4LCC 


01345 


545236 




SAO 


(-1 



/SET FIELDS 

/ALL I'S TO LOCFi 

/TRY TO GET C(LOCFi ) 

/SKIP IF AC NOT ALL I'S 

/OK. 

/ERR. AC NOT ALL I'S. HACe F^Lnc 

/DID NOT REFERENCE FIELD i, OR 

/Lac FiLOc Din not reference field i 

/NOT DOnF. REPEAT TEST. 



/RUN IF FIELD 2 AVaILARLF 
/SET FIELDS 

/ALL I'S TO L0CF2 

/TRY TO GET C(LOCF?) 

/SKIP IE AC NOT ALL I'S. 

/OK. 

/ERROR. DAC* F?L0C> OR LaC* F2L0c 

/DID NOT REFERENCE FIELD 2. 

/REPEAT TEST. 



/RUN IF FIELD 3 AVAILABLE 
/SET FIELDS 

/ALL I'S TO L0CF3 

/TRY TO GET c<L0cF3) 

/SKjP iF AC NOT All I'S. 

/OK 

/ERROR. DAC» F3L0C, OR LAC» F3LOC 

/DID NOT REFERENCE FIELD 3. 

/NOT DONE. REPEAT TEST 



/RUN IF FIELD 4 AVAILABLE 
/SET FIELDS 

/ALL I'S TO L0CF4 

/TRY TO GET- C(L0CF4) 
/SKIP IF AC NOT ALL I'S 
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(51346 
P)1347 

M1350 
01351 

01352 
01353 
01354 
01355 
01356 
01357 
01360 
01361 
01362 

01363 
01364 

01365 
01366 

01367 
01370 
01371 
01372 
01373 
01374 
01375 
01376 
01377 
01400 
f11401 

01402 
01403 

01404 
01405 
01406 
01407 
01410 
01411 
01412 
01413 
01414 

0I4I5 
01416 

01417 
01420 



741000 
100604 

100223 
601341 

000013 
001367 
100527 
100336 
205236 
060105 
750000 
220105 
545236 

741000 
100604 

100223 
601356 

000014 
001404 
100533 
100336 
205236 
060106 
750000 
220106 
545236 

741000 
100604 

100223 
601373 

000015 
001421 
100537 
100336 
205236 
060107 
750000 
220107 
545236 

74I000 
100604 

100223 

601410 



SKP 
ERRORA 

CHAIN 

JMP T12+4 
/TEST LAC« E5L0C 



Tl3 



13 

Tl4 

TE5 

STFN 

LAC 

DAC» 

CLA 

LAC« 

SAD 

SKP 

ERRORa 



(-1 

F5L0C 

F5L0C 
(-1 



CHAIN 

JMP T13+4 
/TEST LAC» F6L0C 
Tl4 14 

T15 

TF6 

STFN 

LAC (-1 

DAC« F6L0C 

CLA 

LAC» F6L0C 

SAD <-l 

SKP 

ERRORa 

CHAIN 

JMP T14+4 
/TEST LAC» F7L0C 



T15 



15 

T16 

TF7 

STFN 

LAC 

DAC» 

CLA 

LAC» 

SAD 

SKP 

ERRORa 

CHAIN 

JMP 

.EJECT 



(-1 
F7L0C 

F7L0C 
(-1 



T15 + 4 



/OK 

/ERROR. nAc« F4Lnc. OR LAc*" F4L.0r 

/Din NOT RFFERFNCE FIELD A. 

/NOT DONE. REPEAT TEST. 



/RUN IF FIELD S AVaILaRLF 
/SET FIELDS 

/ALL I'S TO L0CF5 

/TRY TO GET C(L0CF5) 

/SKIP IF AC NOT ALL I'S. 

/OK 

/ERROR. DAC* F5L0C' OR LaC" F5L0c 

/DID NOT REFERENCE FIELD 5. 

/NOT DONE. REPEAT TEST 



/RUN IF FIELD 6 AVAILABLE 
/SET FIELDS 

/ALL I'S TO L0CF6 

/TRY TO GET C(L0CF6) 

/SKIP IF AC NOT ALL I'S 

/OK. 

/ERROR, DAC° r6L0C' OR LAC" F6L0C 

/DID NOT REFERENCE FIELD 6. 

/NOT DONE. REPEAT TEST. 



/RUN IF FIELD 7 AVAILABLE 
/SET FIELDS 

/ALL I'S TO L0CF7 

/TRY TO GET C(L0CF7) 

/SKIP IF AC NOT'' ALL 1 'S 

/OK. 

/ERROR. DAC» F7L0C. OR LaC» F7L0c 

/DID NOT REFERENCE FIELD 7. 

/NOT DONE. REPEAT TEST. 
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01421 
filA22 
01423 
01424 
01425 
01426 
01427 
01430 
01431 
01432 
01433 



01434 
01435 
01436 
01437 

01440 
01441 
01442 

01443 
01444 
01445 
01446 
01447 
01450 
01451 
01452 
01453 



01454 
01455 
01456 
01457 

01460 
01461 
01462 
01463 
01464 
01465 
01466 
01467 
01470 
01471 
01472 
01473 



01474 
01475 
01476 



000016 
001440 
100336 
100311 
001435 
016000 
777775 
420101 
100223 
601424 
100604 



601431 
740800 
626002 
001433 

000017 
001460 
10e5l3 
100336 
100311 
001455 
026000 
777775 
420102 
100223 
601444 
100604 



601451 
740000 
626002 
001453 

000020 
001500 
100517 
100336 
100311 
001475 
036000 
777775 
420103 
100223 
601464 
100604 



601471 
740000 
626002 



/Test thaT xqT* or nop a''' locfi ooes mot transfep control to field i, 

Ti6 16 

Tl7 

/SET FIELDS 

/MOVE Test words to test area 

/IN FIELD 1. 

/XCT» OF NOP In LOTFl 

/NOT DONF. repeat TEST. 
/ERROR. PROGRAM 010 NOT RETURN TO 
/TO Ti6A. INSTEAD, INSTRUCTION 
/AT LOCFl+1 WAS EXFCUTFO. 
Tl6A 

LOC + 2 
T16B 
/TEST THAT XcT» OF NOP aT L0cF2 DOES NOT TPaNSFER CONTROL TO FIELD 2, 

Tl7 17 





T17 






STFN 






MOVE 






Tl6W 






LOCFl 






-3 






XCT» 


FlLOC 


T16A 


CHAIN 






JMP 


Tl6*3 


Ti6B 


ERROR 






JMP 


Tl6A 


T16W 


NOP 






JMP« 


LOC + 2 



/TEST WORDS 



T17A 
Tl78 



T20 

TF2 

STFN 

MOVE 

T17W 

L0CF2 

-3 

XCT» 

CHAIN 

JMP 

ERROR 



f2L0C 
T17 + 4 



/RUN IF FIELD ? AVAILABLE 
/SET FIELDS 

/MOVE TEST WORDS TO TEST AREA 
/IN FIELD 2. 



/XCt« of NOP In L0CF2 



/NOT DONE. REPEAT TEST. 
/ERROR. PROGRAM DID NOT RETURN TO 
/T17A. INSTEAD, INSTRUCTION AT 
/L0CF2+1 WAS EXECUTED. 

JMP T17A 
Ti7W NOP /TEST WORDS 

JMP» LOC+2 

T17B 
/TEST THAT XcT» OF NOP aT L0cF3 DOES NOT TRaNSFER CONTROL TO FIELD 3, 
T20 20 

T21 

/RUN IF FIELD 3 AVAILABLE. 
/SET FIELDS 

/TEST WORDS TO TEST AREA 
/IN FIELD 3. 



/xCt» of nop if LOCF3. 

/NOT DONE. REPEAT TEST. 
/ERROR. PROGRAM DIO NOT RETURN 
/TO T20A. INSTEAD, INSTRUCTION 
/AT L0CF3+1 WAS EXECUTED. 

/TEST WORDS 





T21 






TF3 






STFN 






MOVE 






T20W 






L0CF3 






-3 






XCT» 


F3L0C 


T20A 


CHAIN 






JMP 


T20 + 4 


T20B 


ERROR 






JMP 


T20A 


T20W 


NOP 






JMP» 


L0C*2 
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01477 

PI1501 
«l502 
fll503 
01504 
01505 
01506 
01507 
01510 
01511 
01512 
01513 



01514 
01515 
01516 
01517 

01520 
01521 
01522 
01523 
01524 
01525 
01526 
01527 
01530 
01531 
01532 
01533 



01534 
01535 
01536 
01537 

01540 
01541 
01542 
01543 
01544 
01545 
01546 
01547 
01550 
01551 
01552 
01553 



01554 



001473 

00P0?1 
001520 
100523 
100336 
100311 
001515 
0460PI0 
777775 
420104 

100223 
601504 
100604 



601511 
740000 
626002 
001513 

000022 
001540 

100527 
100336 
100311 
001535 
056000 
777775 
420105 
100223 
601524 
100604 



601531 
740000 
626002 
001533 

000023 
001560 
100533 
100336 
100311 
001555 
066000 
777775 
420106 

100223 
601544 
100604 



601551 



T2?iB 
/TfST THaT XcTo of nop aT L.0CF4 DOES NOT TRaNSfeR CONTROL TO FIELD 4. 

T21 21 



T21A 
T21B 

T21W 



T22 

TF4 

STFN 

MOVE 

T2lW 

L0CF4 

-3 

xCT» 

CHAIN 

JMP 

ERROR 



JMP 
NOP 
JMP» 
T21B 



F4L0n 
T21+4 

T21A 
LOC + 2 



/RUN IF FIELD 4 AVaILAHLT 
/SET FIELDS 

/TEST WORDS TO FIELD 4 
/TEST AREA. 



/XCt« 0"^ NOP In iqcsa 

/REPEAT TEST. 

/ERROR. PROGRAM HID NOT p^TURN TO 
/T21A. INSTEAD INSTRUCTION AT 
/L0CF4+1 Was EXECUTED. 



/TEST WORDS 



/TEST THAT ^C^'' OF NOP a^ L0cF5 OOES NOT TRANSFER CONTROL TQ FIELD 5, 
T22 



T22A 
T22B 

T22W 



22 

T23 

TF5 

STFN 

MOVE 

T22W 

L0CF5 

-3 

XCT» 

CHAIN 

JMP 

ERROR 



JMP 
NOP 
JMPe 
T228 



F5L0C 
T22 + 4 

T22A 
LOC + 2 



/RUN IF FIELD 5 AVAILABLE 
/SET FIELDS 

/TEST WORDS TO FlELO 5 
/TEST AREA. 



/XCT» OF NOP In L0CF5 

/REPEAT TEST. 

/ERROR. PROGRAM DID NOT RETURN 
/TO T22A. INSTEAD, INSTRUCTION 
/AT L0CF5+1 WAS EXECUTED. 

/TEST WORDS 



/TEST THAT XcT« OF NOP aT L0CF6 DOES NOT TRANSFER CONTROL TO FIELD 6. 
T23 23 



T23A 
T23B 



T24 

TF6 

STFN 

MOVE 

T23W 

L0Cr6 

-3 

XCT» 

CHAIN 

JMP 

ERROR 



JMP 



F6L0C 
T23 + 4 

T23A 



/RUN IF FIELD 6 AVAILABLE. 
/SET FIELDS 

/TEST WORDS TO FIELD 6 
/TEST AREA 



/XCT» of NOP In L0r:F6. 

/REPEAT TEST. 

/ERROR. PROGRAM DID NOT RETURN TO 
/T23A. INSTEAD, INSTRUCTION AT 
/L0CF6+1 WAS EXECUTED. 
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01555 


7^0000 


01556 


626002 


01557 


001553 


01560 


000024 


01561 


001600 


01562 


100537 


01563 


100336 


01564 


100311 


01565 


001575 


01566 


076000 


01567 


777775 


01570 


420107 


01571 


100223 


01572 


601564 


01573 


100604 


01574 


601571 


01575 


740000 


01576 


626002 


01577 


001573 



T23W 



NOP 

JMPa 

T23B 



/TEST WORDS 



LOC + 2 



/yF-Sy tHAt XCt» OF NOP AT l-OCF? DOES NOj jRaNSfeR rONjRQL jO FIELD 7, 
T24 



T24A 
T24B 

T24W 



24 

T25 

TF7 

STFN 

MOVE 

T24W 

L0CF7 

-3 

xCt» 

CHAIN 

JMP 

ERROR 



JMP 

NOP 

JMP» 

T24B 

.EJECT 



F7L0C 
T24 + 4 

T24A 
LOC + 2 



/RUN IF FIELD 7 AVAILABLE 
/SET FIELDS 

/TEST VOIDS TO FIELD 7 
/TEST AREA. 



/XCTff oF NOP INL0CF7 



/ERROR. PROGRAM DID NOT RETURN TO 
/T24A, INSTEAD INSTRUCTION aT 
/L0CF7+1 WAS EXECUTED. 

/TEST WORDS 
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EXM15 


C^160f) 


000025 


01601 


001614 


P1160? 


100336 


1^1603 


205247 


01604 


060101 


01605 


750000 


01606 


420101 


01607 


545247 


01610 


741000 


01611 


100604 


01612 


100223 


01613 


601603 


01614 


000026 


01615 


001631 


01616 


100513 


01617 


100336 


01620 


205247 


01621 


060102 


01622 


750000 


01623 


420102 


01624 


545247 


01625 


741000 


01626 


100604 


01627 


100223 


01630 


601620 


01631 


000027 


01632 


001646 


01633 


100517 


01634 


100336 


01635 


205247 


01636 


060103 


01637 


750000 


01640 


420103 


01641 


545247 


01642 


741000 


01643 


100604 


01644 


100223 


01645 


601635 


01646 


000030 


01647 


001663 


01650 


100523 


01651 


100336 


01652 


205247 


01653 


060104 


01654 


750000 


01655 


420104 


01656 


545247 


01657 


741000 



/TST XCT» OF LAC IN LOCFl (DATA IN FIELD 0) 
T25 25 



T26 

STfN 

LAC 

DAC« 

CLA 

XCT* 

Sad 

SKP 
ERRORa 

CHAIN 
JMP 



(LAC 6000 
FiLOC 

FlLOC 
(LAC 6000 



T25 + 3 

/TEST XcT» OF LaC IN L0CF2 (QaTa IM EIELD 0) 
T26 26 



/SET FIELDS 

/TESt word tO LOCFl 



/xCt» Of l*c at loCfI 

/skip if ac difffrfnt from (lac 6000 

/OK 

/ERROR. XCT« OF LAC AT LOCFl. 

/LAC 6000 DID NOT REFERENCE FIELD 1. 

/REPEAT TEST. 



T27 

TF2 

STFN 

LAC 

DAC« 

CLA 

XCT» 

Sad 

SKP 
ERRORa 

CHAIN 
JMP 



(LAC 6000 
F2L0C 

F2L0C 
(LAC 6000 



/RUN IF FIELD 2 AVAILABLE 
/SET FIELDS 

/TEST WORD TO L0CF2. 



/XCT» OF LAC AT L0CF2 

/SKIP IF DIFFERENT FROM (LAC 6000 
/OK. 

/ERROR. XCT» OF LAC AT L0CF2. 
/LAC 6000 DID NOT REFERENCE FiFlD 2. 



T26+4 /REPEAT REST. 

/TEST XcTe OF LAC N L0CF3 (DATA IN FIELD 0) 
T27 27 



T30 

TF3 

STFN 

LAC 

DAC» 

CLA 

XCT» 

SAD 

SKP 

ERRORa 

CHAIN 
JMP 



(LAC 6000 
F3LOC 

F3L0C 
(LAC 6000 



T27 + 4 

/TEST XcT» OF LAC IN LOCF4 (DaTa IN FIELD 0>. 
T30 30 



/RUN IF FIELD 3 AVAILBLE 
/SET FIELDS 

/TEST WORD TO L0CF3. 



/XCT« OF LAC AT LOCpS 

/SKIP IF AC DIFFERENT FROM (LAC 6000 
/OK. 

/ERROR. XCT, OF LAC AT LOCF3. 
/LAC 6000 DID NOT REFERENCE FIELD 3. 

/REPEAT TEST. 



T31 

TF4 

STFN 

LAC 

DAC» 

CLA 

XCT» 

SAO 

SKP 



(LAC 6000 
F4LOC 

F4LOC 
(LAC 6000 



/RUN IF FIELD 4 AVAILABLE 
/SET FIELDS 

/TEST WORD TO L0CF4 



/XCT« OF LAC AT LOCF4 

/SKIP IF AC DIFFERENT FROM (LAC 6000 
/OK 
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0^66? 


10060^ 


01661 


100223 


0166? 


601652 


^1663 


000031 


01664 


001700 


01665 


100527 


01666 


100336 


01667 


205247 


0l670 


060105 


01671 


750000 


01672 


420105 


01673 


545247 


01674 


741000 


01675 


100604 


01676 


100223 


01677 


601667 


01700 


000032 


01701 


001715 


01702 


100533 


01703 


100336 


01704 


205247 


01705 


060106 


01706 


750000 


01707 


420106 


01710 


545247 


01711 


741000 


01712 


100604 


01713 


100223 


01714 


601704 


0l7i5 


000033 


01716 


001732 


01717 


100537 


01720 


100336 


01721 


205247 


01722 


060lf97 


01723 


750000 


01724 


420107 


01725 


545247 


01726 


741000 


01727 


100604 


01730 


100223 


01731 


601721 



errora /error, xct» of lac at locfi. 

/LAc 6000 nip I^OT REFERENcF FlFLo '^ • 

CHAIN 

JMP T3H+4 /REPEAT TEST. 

/TEST XcT« OF LaC IN LOCF5 (DaTa IN FIELD p ) 
T31 31 



T32 

TF5 

STFN 

LAC 

0AC» 

CLA 

XCt» 

SAD 

SKP 

ERRORa 

CHAIN 
JMP 



(LAC 6*^00 
F5LOC 

I'SlOC 
(LAC 6:^00 



T31 + 4 

/TEST XcT, OF LAC IN LncF6 (DaTa IN FIELD 0) 
T32 32 



/RUN IF FIELO 5 AVAILABLE 
/SET FIELDS 

/TEST WORD TO LOCFS 



/XCt» Of" LAC At l0Cf5 

/SKIP IF AC DIFFERENT FROM LAC 6I?I0« 
/OK. 

/ERROR, XCT» OF LAC AT LOCF5. 
/LAC 6000 DID NOT REFERENCE FIELD 5. 

/REPEAT TEST 



T33 

TF6 

STFN 

LAC 

DAC« 

CLA 

XCT« 

SAO 

SKP 

ERRORa 

CHAIN 
JMP 



(LAC 6000 

F6L0C 

F6L0C 

(LAC 6PI00 



T32+4 

/TEST XcTo OF LAC IN LOCF7 (QaTa IN FIELD 0> 
T33 33 



/RUN IF FIELD 6 AVAILA8LE 
/SET FIELDS 

/TEST WORD TO L0CF6 



/XCT» OF LAC AT L0CF6 

/SKIP IF AC DIFFERENT FROM (LAC 6000 
/OK. 

/ERROR. XcT» OF Lac aT L0cF6. 
/lAC 6000 DjD NOT REFERENCE FjElO 6. 

/REPEAT TEST. 



T34 

TF7 

STFN 

LAC 

0AC6 

CLA 

XCT» 

SAO 

SKP 

ERRORA 

CHAIN 

JMP 

.EJECT 



(LAC 6«00 
F7LOC 

F7L0C 
(LAC 6P00 



T33 + 4 



/RUN IF FIELD 7 AVAILABLE 
/SET FIELDS 

/TEST WORD TO L0CF7. 



/XCT» OF LAC AT L0CF7 

/SKIP IF AC DIFFERENT FROM (LAC 6000 
/OK. 

/ERROR. XCT, OF LAC AT LOCF7. 
/LAC 6000 DID NOT REFERENCE FIELD 7. 

/REPEAT TEST. 
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(^1732 


000034 


01733 


001754 


01734 


100336 


01735 


100311 


01736 


001752 


01737 


016000 


01740 


777776 


01741 


205250 


01742 


046001 


01743 


750000 


01744 


420101 


01745 


545251 


01746 


741000 


01747 


100604 


01750 


100223 


01751 


601735 


01752 


226001 


01753 


016000 


01754 


000035 


01755 


001777 


01756 


100513 


01757 


100336 


01760 


100311 


01761 


001775 


01762 


026000 


01763 


777776 


01764 


205250 


01765 


046001 


01766 


750000 


01767 


420102 


01770 


545251 


01771 


741000 


01772 


100604 


01773 


100223 


01774 


601760 


01775 


226001 


01776 


026000 


01777 


000036 


02000 


002022 


02001 


100517 


02002 


100336 


02003 


100311 


02004 


002020 


02005 


036000 


02006 


777776 


02007 


205250 


02010 


046001 


02011 


750000 


02012 


420103 


02013 


545251 



/TFST 
T34 



XcT« 
34 



OF LAC* IN LOCFl (OaTa IN FIFLD 0) 



T35 

STFN 

MOVE 

T34W 

LOCFl 

-2 

LAC 

OAC 

CLA 

XCT. 

Sad 

SKP 
ERRORa 

CHAIN 
JMP 

T34W LACe 
LOCFl 

/TEST XcT« OF 



/SET FIELDS 
/2 TFST WORDS 



OF FIELD 1, 



(LOCF0 
LOCF0+t 

FlLOC 
(LAC» 6001 



T34 + 3 
6001 



/XCT, OF LAC» AT LOCFl 

/SKIP IF AC DIFFERENT FROM (LAC» 6001 

/OK, 

/ERROR. XcT» OF LAC* aT LOCFl. 

/LAC» 6001 DrO NOT REFERENCE FiElD 1. 

/REPEAT TEST. 
/TEST WORDS. 



LAC* IN L0CF2 (DaTa IN FIELD 0) 



T35 35 
T36 
TF2 
STFN 
MOVE 
T35W 
L0CF2 
-2 
LAC 
DAC 
CLA 
XCT» 

Sad 

SKP 
ERRORa 

CHAIN 
JMP 
T35W LAC» 

L0cr2 

/TEST XcT« OF 



/RUN 
/SET 



IF FIELD 
FIELDS 



2 AVAILABLE 



/2 TEST WORDS TO FIELD 2 



(LOCF0 
LOCF0+1 



F2L0C 
(LAC* 



T35 + 4 
6001 



6001 



LAC. IN LnCF2 

AC DIFFERENT FROM (LAC* 6001 



/XCT« OF 

/SKIP IE 

/OK. 

/ERROR. XCT» OF LAC* aT LOCF?. 

/LAC* 6001 Did not reference FiElO 2 

/REPEAT TEST. 
/TEST WORDS. 



T36 



36 

T37 

TF3 

STFN 

MOVE 

T36W 

L0CF3 

-2 

lac 

DAC 
CLA 
XCT, 
SAD 



LaC» in L0CF3 (OATa IN FIELD 0) 



(LOCF0 
LOCF0+1 

F3LQC 
(LAC* 6001 



/RUN IF FIELD 
/SET FIELDS 
/2 TEST WORDS 



3 AVAILABLE 



TO FIELD 3 



/XCT» OF LACo IN L0CF3 

/SKIP IF AC DIFFERENT FROM (LAC* 6001 
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02014 


741000 




SKP 




02015 


100604 




ERRORA 




02016 


100223 




CHAIN 




02017 


602003 




JMP 


T36 + 4 


02020 


226001 


T36W 


LAC» 


6001 


02021 


036000 




Locrs 








/TEST 


xcT« or 


lac» in L0cr4 


02022 


000037 


T37 


37 




02023 


002045 




T40 




02024 


100523 




TF4 




02025 


100336 




STFN 




02026 


100311 




MOVE 




02027 


002043 




T37W 




02030 


046000 




L0CF4 




02031 


777776 




-2 




02032 


205250 




LAC 


<LOCF0 


02033 


046001 




DAC 


LOCF0+1 


02034 


750000 




CLA 




02035 


420104 




XCT« 


F4L0C 


02036 


545251 




SAD 


{LAC» 6001 


02037 


741000 




SKP 




02040 


100604 




ERRORA 




02041 


100223 




CHAIN 




02042 


602026 




JMP 


T37 + 4 


02043 


226001 


T37W 


LAC» 


6001 


02044 


046000 




L0CF4 








/TEST 


XcT« OF 


LaC« in L0CF5 


02045 


000040 


T40 


40 




02046 


002070 




T41 




02047 


100527 




TF5 




02050 


100336 




STFN 




02051 


100311 




HOVE 




02052 


002066 




T40W 




02053 


056000 




L0Cr5 




02054 


777776 




-2 




02055 


205250 




LAC 


(LOCF0 


02056 


046001 




OAC 


LOCF0+1 


02057 


750000 




CLA 




02060 


420105 




XCT» 


F5L0C 


02061 


545251 




SAO 


(LAC« 6001 


02062 


741000 




SKP 




02063 


100604 




ERRORa 




02064 


100223 




CHAIN 




02065 


602051 




JMP 


T40 + 4 


02066 


226001 


T40W 


LAC» 


6001 


02067 


056000 




L0CF5 








/TEST 


XCT. OF 


LaC» in L0CF6 


02070 


000041 


T41 


41 




02071 


002113 




T42 




02072 


100533 




TF6 




02073 


100336 




STFN 




02074 


100311 




MOVE 





/OK. 

/ERROR. XcT» OF LAc» AT LOcF?- 

/LAC» 6001 DID NOT REFERENCE FIELD 3, 

/REPEAT TEST. 
/TEST WORDS. 

(DaTa in field 0) 



/RUN IF FIELD 4 AVAILABLE 

/SET FIELDS 

/2 TEST WORDS TO FIELD 4 



/XCt» of LAC« in L0CF4 

/SKIP IF AC DIFFERENT FROM (LAG* 6001 

/OK. 

/ERROR. XCT« OF LAC» IN L0CF4. 

/LAC<* 6001 DID NOT REFERENCE FIELD 4, 

/REPEAT TEST. 
/TEST WORDS. 

(DaTa in field 0) 



/RUN IF FIELD 5 AVAILABLE 

/SET FIELDS 

/2 TEST WORDS TO FIELD 5 



/XCT» OF LAC» IN L0CF5 

/SKIP IF AC DIFFERENT FROM (LAC» 6001 

/OK. 

/ERROR. XcT» OF LaC« IN L0cF5. 

/LAC» 6001 Did NOT REFERENCE FjElD 5. 

/REPEAT TEST. 
/TEsT WORDS. 

(DATA IN FIELD 0) 



/RUN IF FIELD 6 AVAILABLE 

/SET FIELDS 

/2 TEST WORDS TO FIELD 6 
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EXM15 


02075 


002111 


02076 


066000 


02077 


777776 


02100 


205250 


02101 


046001 


02102 


750000 


02103 


420106 


02104 


545251 


02105 


741000 


02106 


100604 


02107 


100223 


02110 


602074 


02111 


226001 


02112 


066000 


02113 


000042 


02114 


002136 


02115 


100537 


02116 


100336 


02117 


100311 


02120 


002134 


02121 


076000 


02122 


777776 


02123 


205250 


02124 


046001 


02125 


750000 


02126 


420107 


02127 


545251 


02130 


741000 


02131 


100604 


02132 


100223 


02133 


602117 


02134 


226001 


02135 


076000 



T41 

LOC 

-2 

LAC 

DAC 

CLA 

XCT 

Sad 

SKP 
ERR 



r6 



(LOCF0 

Locr0+i 

F6L0C 
<LaC» 6001 



ORa 



CHAIN 

JMP T41+4 
T4lW LAC» 6001 

L0CF6 
/TEST XcT« OF LaC» IN LOCF? 



T42 



T42W 



42 
T43 

TF7 

stfn 

MOVE 

T42W 

L0CF7 

-2 

LAC 

DAC 

CLA 

XCT» 

SAO 

SKP 

ERRORa 

CHAIN 

JMP 

LAC» 

L0CF7 

.EJECT 



/XCT» OF LAC» IN L0CF6 

/SKIP IF AC DIFFERENT FROM (LAC* 6001 

/OK 

/ERROR, XcT» OF LaC» IN L0CF6. 

/LAC» 60PI1 Did NOT REFERENCE FjELD 6. 

/REPEAT TEST. 
/TEST WORDS. 

(DaTa in field 0) 



/RUN IF FIELD 7 AVAILABLE 

/SET FIELDS 

/2 TEST WORDS TO FIELD 7 



<LOCF0 
LOCF0+1 

F7L0C 
(LAC» 6001 



T42+4 
6001 



/XCT» OF LACft IN L0CF7 

/SKIP IF AC DIFFERENT FROM (LAC» 6001 

/OK. 

/ERROR. XcT» OF LAC* IN L0CF7. 

/LAC» 6001 DID NOT REFERENCE FiELD 7. 

/REPEAT TEST 
/TEST WORDS. 
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02136 


000043 


02137 


002156 


02140 


100336 


02141 


100311 


02142 


002154 


02143 


016000 


02144 


777776 


02145 


205252 


02146 


046001 


02147 


420101 


02150 


100223 


02151 


602141 


02152 


100604 


02153 


602150 


02154 


626001 


02155 


002150 


02156 


000044 


02157 


002177 


02160 


100513 


02161 


100336 


02162 


100311 


02163 


002175 


02164 


026000 


02165 


777776 


02166 


205253 


02167 


046001 


02170 


420102 


02171 


100223 


02172 


602162 


02173 


100604 


02I74 


602I7I 


02175 


626001 


02176 


002171 


02177 


000045 


02200 


002220 


02201 


100517 


02202 


100336 


02203 


100311 


02204 


002216 


02205 


036000 


02206 


777776 


02207 


205254 


02210 


046001 


02211 


420103 


02212 


100223 


02213 


602203 


02214 


100604 


02215 


602212 


02216 


626001 


02217 


002212 



/TEST 
T43 



T43A 

T43e 

T43W 

/TEST 
T44 



T44A 
T44B 

T44W 

/TEST 
T45 



02220 000046 



T45A 

T45B 

T45W 

/TEST 
T46 



xct» of 

43 
T44 

stfn 

MOVE 

T43W 

LOCFl 

-2 

LAC 

DAC 

XcT» 

Chain 

JMP 

ERROR 

JMP 

JMP» 

T43A 

XcT» OF 
44 
T45 
TF2 
STFN 
MOVE 
T44W 
L0CF2 
-2 
LAC 
DAC 
XCT» 
CHAIN 
JMP 
ERROR 
JMP 
JMP« 
T44A 

XCt» Of 
45 
T46 
TF3 
STFN 
MOVE 
T45W 
L0CF3 
-2 
LAC 
DAC 
XCT« 
CHAIN 
JMP 
ERROR 
JMP 
JMP» 
T45A 

XCT» OF 
46 



JMP» AT LOCFl (JuMPs jO EIELD 



/SET FIELDS 

/2 TEST WORDS TO FIELD 1 



(T43B 

LOCF0+1 

FlLOc 

T43 + 3 

T43A 
6001 



/XcT» OF JMP» IN LOcFl 

/REPEAT TEST 

/ERROR. JMP, 6001 AT LOCFl REFERENCED 

/FIELD INSTEAD OF FIELD 1. 

/TEST WORDS. 



JMP, aT L0CF2 (JUMPS TO FIELD 0) 



(T44B 

LOCF0+I 

F2LOC 

T44 + 4 

T44A 

6001 



/RUN IF FIELD 2 AVAILABLE 

/SET FIELDS 

/2 TEST WORDS TO FIELD 2 



/XCT» OF JMP, IN L0CF2 

/REPEAT TEST 

/ERROR. JMP* 6001 AT L0CF2 REFERENCED 

/FIELD INSTEAD OF FIELD 2. 

/TEST WORqS. 



JMpe At L0CF3 <JUMps tO FIELD 0) 



(T45B 

LoCF0-t-i 

F3L0C 

T45 + 4 

T45A 

6001 



/RUN IF FIELD 3 AVAILABLE 

/SET FIELDS 

/2 TEST WORDS TO FIELD 



/XCT, OF JMP, IN L0CF3 

/REPEAT TEST 

/ERROR. JMP» 6001 AT LOCFs REFERENCED 

/FIELD INSTEAD OF FIELD 3. 

/TEST WORDS. 



JMp» AT L0CF4 (JuMps tO FIELD 0) 



PA(7!^ ?7 



FXM15 



t1222t 


002241 


0222? 


100523 


f12223 


100336 


P12224 


100311 


tlgPJ'J 


002237 


(^2226 


046000 


«2227 


777776 


f^22Z^ 


205255 


02231 


046001 


f^2232 


420104 


1^2233 


100223 


<^2234 


602224 


I?I2235 


100604 


02236 


602233 


02237 


626001 


02240 


002233 


02241 


000047 


82242 


002262 


02243 


100527 


02244 


100336 


02245 


100311 


02246 


002260 


02247 


056000 


02250 


777776 


02251 


205256 


02252 


046001 


02253 


420105 


02254 


100223 


02255 


602245 


02256 


100604 


02257 


602254 


02260 


626001 


02261 


002254 


02262 


000050 


02263 


002303 


02264 


100533 


02265 


100336 


02266 


100311 


02267 


002301 


02270 


066000 


02271 


777776 


02272 


205257 


02273 


046001 


02274 


420106 


02275 


100223 


02276 


602266 


02277 


100604 


02300 


602275 


02301 


626001 


02302 


002275 


02303 


000051 


02304 


002324 



T46A 
T46B 
T46W 



(T46P 

LOCF0+1 

F4L0C 

T46 + 4 

T46A 
6001 



/RUM IF FIFLn 4 AVAlLAHfLT 

/SET riFLDP 

/2 TFST WORDS Tn FIELD 4. 



/XCT» OF JMP* IM LncF4 



T47 
TF4 

sten 

MOVE 

T46W 

L0CF4 

-2 

LAC 

DAC 

XCT. 

CHAIN 

JMP 

ERROR 

JMP 

JMP* 

T46A 

/TCST XCT» of JMp« AT L0cF5 (JuMps T^ FIFLP 0)). 
T47 47 

T50 

TF5 

STFN 

MOVE 

T47W 

L0CF5 

-2 

LAC 

DAC 

XCTe 

CHAIN 

JMP 

ERROR 

JMP 

JMP* 

T47A 
/TEST XCT* OF JMpe AT L0CF6 (JUMpS TO FIELD 0) 
T50 50 

T51 

TF6 

STFN 
MOVE 
T50W 
L0CF6 
-2 
LAC 
OAC 
XCT« 
CHAIN 
JMP 
ERROR 
JMP 
JMP* 
T50A 
/TEST XCT* OF JMp« AT LDCF7 (JuMps TO FIELD 0) 
T51 51 
T52 



T47A 
T47B 

T47W 



(T47B 

LOCF0+1 

F5L0C 

T47 + 4 

T47A 
6001 



T50A 
T50B 
T50W 



(T50B 

LoCF0-t-i 

F6L0C 

T50 + 4 

T50A 
6001 



/REPEAT TEST 

/ERROR. JMPe 6001 aT LOCF4 RpFrf^£fg(~g;p 

/FIELD INSTEAD OF FIELD 4_ 

/TEST WORDS. 



/RUN IF FIELD 5 AVAILABLE 

/SET FIELDS 

/2 TEST WORDS TO FIELD 5 



/XCT» OF JMP» IN LOCF5 

/REPEAT TEST 

/ERROR. JMP* 6001 AT LOCF5 REFERENCED 

/FIELD INSTEAD OF FIELD 5. 

/TEST WORDS. 



/RUN IF FIELD 6 AVAILABLE 

/SET FIELDS 

/2 TEST WORDS TO FIELD 6 



/XCT» OF JMP, IN L0CF6 

/REPEAT TEST 

/ERROR. JMP* 6001 AT L0CF6 REFERENCED 

/FIELD INSTEAD OF FIELD 6. 

/TEST WORDS 
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02305 
02306 
02307 
0231P! 
02311 
C2312 
02313 
02314 
02315 
02316 
02317 
0232P 
02321 
02322 
02323 



100537 
100336 
100311 
002322 
076000 
777776 
?05260 
046001 
420107 
100223 
602307 
100604 
602316 
626001 
002316 





TE? 






5TFN 






MOVE 






T51W 






L0CE7 






-2 






LAC 


(T51B 




OAC 


LOCF0+1 




XCT» 


F7L0C 


T51A 


CHAIN 






JMP 


T51 + 4 


T518 


ERROR 






JMP 


T5IA 


T51W 


JMP« 
T51A 
.EJECT 


6001 



/RUN IF FIFLD 
/SET FIELDS 
/2 TFST WORD? 



7 av&ilarlf 



TO FIELD 7. 



/XCTo OF JVPe IN L0CF7 

/REPEAT TEST 

/ERROR. JMP» 6001 AT LOCF7 RFFFRENCED 

/field INSTEAD OF FIELO 7. 

/TEST WORDS. 
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1^2324 


000052 


i^232'5 


002340 


112326 


100336 


02327 


100311 


0233PI 


002336 


«2331 


016000 


0233? 


777776 


02333 


620101 


02334 


100223 


02335 


60?3?7 


02336 


626001 


02337 


002334 


02340 


000053 


02341 


002355 


02342 


1005i3 


02343 


100336 


02344 


100311 


02345 


002353 


02346 


026000 


02347 


777776 


02350 


620102 


02351 


100223 


02352 


602344 


02353 


626001 


02354 


002351 


02355 


000054 


02356 


002372 


02357 


100517 


02360 


100336 


02361 


100311 


02362 


002370 


02363 


036000 


02364 


777776 


02365 


620103 


02366 


100223 


02367 


602361 


02370 


626001 


02371 


002366 


02372 


000055 


02373 


002407 


02374 


100523 


02375 


100336 


02376 


100311 


02377 


002405 


02400 


046000 


02401 


777776 


02402 


620104 


02403 


100223 


02404 


602376 


02405 


626001 


02406 


002403 



/T^ST 
T5,' 



T52A 

T52W 

/TEST 
T53 



T53A 

T53W 

/TEST 
T54 



T54A 

T54W 

/TEST 
T55 



T55A 
T55W 



OF JMPo 
52 
T53 

STTN 

MOVE 
T52W 

Lonn 

-2 

JMPe 
CH4 I\i 
JMP 
JMP« 
T52A 
JMP, TO 

53 

T54 

TF2 

STFN 

MOVE 

T53W 

L0CF2 

-2 

Jmp» 

CHAIN 
JMP 
JMP« 
T53A 
JMP» TO 
54 
T55 
TF3 
STTN 
MOVE 
T54W 

Locrj 

-2 

JMP» 
CHAIN 
JMP 
JMP« 
T54A 
JMP« TO 
55 
T56 
TF4 
STFN 
MOVE 
T55W 
L0CF4 
-2 

JHPo 
CHAIN 
JMP 
JMP, 
T55A 



TO LOCFi, aNO From LOcFl RACK TO FIELD 



/SET FIEinS 

/2 TEST WORDS TO FIELD 1 



FILOC 

T57 + 3 
6k5l^l 



/JUMP TO FIELD 1 

/REPEAT TEST 
/TEST WORDS 



LOCF? AND FROM L0CF2 BACK TO FIELD 



/RUN IF FIELD 2 aVaILaRLF 

/SET FIELDS 

/2 TEST WORDS TO FIELD 2 



F2L0C 

T53 + 4 
6001 



/JUMP TO FIElD 2 

/REPEAT TEST 
/TEST WORDS 



L0CF3, AND FROM L0CF3 BACK TO FIELD 



/RUN IF FIELD 3 

/SET FIELDS 

/2 TEST WORDS TO FIELD 3 



F3L0C 

T54 + 4 
6001 



/JUMP TO FIELD 3 

/REPEAT TEST 
/TEST WORDS 



L0CF4, AND FROM L0CF4 BACK TO FIELD 



/RUN IF FIELD 4 AVAILABLE 

/SET FIELDS 

/2 TEST WORDS TO FIELD 4 



F4L0C 

T55 + 4 
6001 



/JUMP To FIElD 4, 

/REPEAT TEST 
/TEST WORDS 
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02407 


000056 


0241f 


002424 


fl2411 


10?527 


0241? 


100336 


02413 


100311 


02414 


002422 


02415 


056000 


02416 


777776 


02417 


620105 


02420 


100223 


02421 


602413 


02422 


626001 


02423 


002420 


02424 


000057 


02425 


002441 


02426 


100533 


02427 


100336 


02430 


100311 


02431 


002437 


02432 


066000 


02433 


777776 


02434 


620106 


02435 


100223 


02436 


602430 


02437 


626001 


02440 


002435 


02441 


000060 


02442 


002456 


02443 


100537 


02444 


100336 


02445 


100311 


02446 


002454 


02447 


076000 


02450 


777776 


02451 


620107 


02452 


100223 


02453 


602445 


02454 


626001 


02455 


002452 



/TEST 


JMPo TO 


L0CF>^ ANn 


T56 


56 

T57 

TF5 

STFN 

MOVE 

T56W 

L.0CF5 

-2 






Jmp« 


F5L0C 


T56A 


CHAIN 






JMP 


T56 + 4 


T56W 


JMP» 
T56A 


60f'l 


/TEST 


JMP» TO 


L0CF6 AND 


T57 


57 

T60 

TF6 

STFN 

MOVE 

T57W 

L0CF6 

-2 






JMP« 


F6L0C 


T57A 


CHAIN 






JMP 


T57 + 4 


T57W 


JMP» 
T57A 


6001 


/TEST 


JMP, TO 


L0CF7 AND 


T60 


60 

T61 

TF7 

STFN 

MOVE 

T60W 

L0CF7 

-2 






jmp» 


F7L0C 


T60A 


CHAIN 






JMP 


T60 + 4 


T60W 


JMP, 
T60A 


6001 




.EJECT 



FROM L0CF5 BACK TO FIELD 0, 



/RUN IF FIFLD 5 aVaILaPLF 

/SET FIELDS 

/2 TEST WORDS TO FIELD 5 



/JUMP TO f 'ElD 5 

/REPEAT TEST 
/TEST WORDS 

FROM L0CF6 BACK TO FIELD 



/RUN IF FIELD 6 AVaILBLE 

/SET FIELDS 

/2 TEST WORDS TO FIELD 6 



/JUMP TO FIELD 6 

/REPEAT TEST. 
/TEST WORDS 

FROM L0CF7 BACK TO FIELD 



/RUN IF FIELD 7 AVAILABLE 

/SET FIELDS 

/2 TEST WORDS TO FIELD 7 



/JUMP To FIElO 7 

/REPEAT TEST 
/TEST WORDS 
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?I2456 


000061 


02457 


002473 


0246(^ 


100336 


02461 


100311 


02462 


002470 


02463 


016000 


02464 


777775 


02465 


620101 


02466 


100223 


02467 


602461 


02470 


741000 


02471 


002466 


02472 


626001 


02473 


000062 


02474 


002511 


02475 


100513 


02476 


100336 


02477 


100311 


02500 


002506 


02501 


026000 


02502 


777775 


02503 


620102 


02504 


100223 


02505 


602477 


02506 


741000 


02507 


002504 


02510 


626001 


02511 


000063 


02512 


002527 


02513 


100517 


02514 


100336 


02515 


100311 


02516 


002524 


02517 


036000 


02520 


777775 


02521 


620103 


02522 


100223 


02523 


602515 


02524 


741000 


02525 


002522 


02526 


626001 


02527 


000064 


02530 


002545 


02531 


100523 


02532 


100336 


02533 


100311 


02534 


002542 


02535 


046000 


02536 


777775 


02537 


620104 


02540 


100223 



/TFST 
T61 



T61A 
T61W 



/TEST 
T62 



T62A 

T62W 



/TEST 
T63 



T63A 

T63W 



/TEST 
T64 



T64A 



OF SKP I\: 

61 

T6' 

STfm 

MOVE 

T61W 

LOTFi 

-3 

jHPo 

CHAIN 

JMP 

SKP 

T61A 

JMP« 
OF SKP IN 

62 

T63 

TF2 

STFN 

MOVE 

T62W 

L0CF2 

-3 

JMP» 

CHAIN 

JMP 

SKP 

T62A 

JMP« 
OF SKP IN 

63 

T64 

TF3 

STFN 

MOVE 

T63W 

L0CF3 

-3 

JMP» 

CHAIN 

JMP 

SKP 

T63A 

JMP» 
OF SKP 

64 

T65 

TF4 

STFN 

MOVE 

T64W 

L0CF4 

-3 

JMP» 

CHAIN 



LOf'FI 



IN 



f iLor 

T 6 1 + ? 



6 [^ 
LOCF? 



F2L0C 
T6?*4 



60P1 
L0CF3 



F3L0C 
T63 + 4 



6001 
LOCFA 



/SET FIELDS 

/TEST WORDS TO flFU 



/GO TO FIELD 1 

/REPEAT TEST 
/TEST WORDS. 



/RUN IF FIELD ? AV4ILARLF 

/SET FIELDS 

/TEST WORDS TO FIELD 2 



/GO TO FIELD 2 

/REPEAT TEST, 
/TEST WORDS 



/RUN IF FIELD 3 AVAILABLE 

/SET FIELDS 

/TEST WORDS TO FIELD 3 



/GO TO FIELD 3 

/REPEAT TEST 
/TEST WORDS 



/RUN IF FIELD 4 AVAILABLE 

/SET FIELDS 

/TEST WORDS TO FIELD 4 



F4L0C 



/GO TO FIELD 4 
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'^2541 


602533 


0254? 


7410P0 


02543 


002540 


02544 


626001 


?)2545 


000065 


(^2546 


002563 


^2547 


100527 


02550 


100336 


02551 


100311 


f52552 


002560 


02553 


056000 


02554 


777775 


02555 


620105 


02556 


100223 


02557 


602551 


0256f» 


741000 


02561 


002556 


02562 


626001 


02563 


000066 


02564 


002601 


02565 


100533 


02566 


100336 


02567 


100311 


02570 


002576 


02571 


066000 


02572 


777775 


02573 


620106 


02574 


100223 


02575 


602567 


02576 


741000 


02577 


002574 


02600 


626001 


02601 


000067 


02602 


002617 


02603 


100537 


02604 


100336 


02605 


100311 


02606 


002614 


02607 


076000 


02610 


777775 


02611 


620107 


02612 


100223 


02613 


602605 


02614 


741000 


02615 


002612 


02616 


626001 



JMP 
T64W SKP 
T64A 
JMP« 
/TEST OF SKP 



T64 + 4 



60t'l 
IN LOrrs 



T65 



T65A 
T65W 



65 

T66 

TF'S 

STFN 

MOVE 

T65W 

L0CF5 

-3 

JMP» 

CHAIN 

JMP 

SKP 

T65A 

JMPe 



I'SLOC 
T65 + 4 

6001 



/TEST OF SKP IN L0CF6 
T66 66 

T67 

TF6 

STFN 

MOVE 

T66W 

L0CF6 

-3 

JMP« F6L0C 
T66A CHAIN 

JMP T66+4 
T66W SKP 

T66A 

JMP» 6001 
/TEST OF SKP IN L0CF7 



T67 



T67A 



T67W 



67 

T70 

TF7 

STFN 

MOVE 

T67W 

L0CF7 

-3 

JMP» 

CHAIN 

JMP 

SKP 

T67A 

JMP* 

.EJECT 



F7L0C 
T67 + 4 

6001 



/REPEAT TEST 
/TEST WORDS 



/RUN IF riFLO 5 AVaILaRLF 

/SET FIELDS 

/TEST WORDS TO FIELD 5 



/GO TO FIELD 5. 



/REPEAT TEST 
/TEST WORDS 



/RUN IF FIELD 6 AVAILABLE 

/SET FIELDS 

/TEST WORDS TO FIELD 6 



/Go TO FIElD 6 



/REPEAT TEST 
/TEST WORDS 



/RUN IF FIELD 7 AVAILARLF 
/SET FIELD NUMBERS 
/TEST WORDS TO FIELD 7 



/GO TO FIELD 7 

/REPEAT TEST 
/TEST WORDS 
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/TEST 


or Sad in 


LOCFl 


PS2617 


00C070 


T70 


70 




P)262f 


1^02634 




T71 




^2621 


10P336 




STFN 




H2622 


10P311 




MOVE 




(52623 


002631 




t70W 




f(262'» 


tn 6 f 




LOCri 




I?I2625 


777775 




-3 




02626 


620101 




Jmp» 


FlLOC 


f?2627 


100223 


T70A 


chain 




0263? 


602622 




JMP 


T7H + 3 


02631 


546000 


T70W 


SAO 


60t»0 


02632 


002627 




T70A 




02633 


626001 




JMP» 


6001 






/TEST 


OF Sao in 


LOCF? 


02634 


000071 


T71 


71 




02635 


002652 




T7? 




02636 


100513 




TF2 




02637 


100336 




STFN 




02640 


100311 




MOVE 




02641 


002647 




T71W 




02642 


026000 




L0CF2 




02643 


777775 




-3 




02644 


620102 




Jmp» 


F2L0C 


02645 


100223 


T71A 


chain 




02646 


602640 




JMP 


T71 + 4 


02647 


546000 


T71W 


SAD 


6000 


02650 


002645 




T71A 




02651 


626001 




JMP» 


6001 






/TEST 


OF SAD IN 


L0CF3 


02652 


000072 


T72 


72 




02653 


002670 




T73 




02654 


100517 




TF3 




02655 


100336 




STFN 




02656 


100311 




MOVE 




02657 


002665 




T72W 




02660 


036000 




L0CF3 




02661 


777775 




-3 




02662 


620103 




Jmp» 


F3L0C 


02663 


100223 


T72A 


CHAIN 




02664 


602656 




JMP 


T72 + 4 


02665 


546000 


T72W 


SAD 


6000 


02666 


002663 




T72A 




02667 


626001 




JMP» 


6001 






/TEST 


OF SAD IN 


L0CF4 


02670 


000073 


T73 


73 




02671 


002706 




T74 




02672 


100523 




TF4 




02673 


100336 




STFN 




02674 


100311 




MOVE 




02675 


002703 




T73W 




02676 


046000 




L0CF4 




02677 


777775 




-3 




02700 


620104 




jmp» 


F4L0C 


02701 


100223 


T73A 


CHAIN 





/SET j-lELDS 

/TEST WORDS TO FIELD 1 



/Go TO FIElO 1, AC IS 0. 



/REPEAT TEST 
/TEST WORDS 



/RUN IF FIELD 2 AVAILABLE 

/SET FIELDS 

/TEST WORDS TO field 2 



/Go TO FIElO 2. AC IS 0. 
/REPEAT TEST 



/RUN IF FIELD 3 AVAILABLE 

/SET FIELDS 

/TEST WORDS TO FIELD 3 



/GO TO FIELD 3. AC IS 0, 



/REPEAT TEST 
/TEST WORDS 



/RUN IF FIELD 4 AVAILABLE 

/SET FIELDS 

/TEST WORDS TO FIELD 4 



/Go TO FIElD 4. AC Is 
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02702 


602674 


02703 


5460f"0 


02704 


0027P1 


02703 


6260P'l 


02706 


000074 


H2707 


002724 


02710 


100527 


02711 


100336 


02712 


100311 


02713 


002721 


02714 


0560P0 


02715 


777775 


02716 


620105 


02717 


100223 


0272PI 


602712 


02721 


546000 


02722 


002717 


02723 


626001 


02724 


000075 


02725 


002742 


02726 


100533 


02727 


100336 


02730 


100311 


02731 


002737 


02732 


066000 


02733 


777775 


02734 


620106 


02735 


100223 


02736 


602730 


02737 


546000 


02740 


002735 


02741 


626001 


02742 


000076 


02743 


002760 


02744 


100537 


02745 


100336 


02746 


100311 


02747 


002755 


02750 


076000 


02751 


777775 


02752 


620107 


02753 


100223 


02754 


602746 


02755 


546000 


02756 


002753 


02757 


626001 



T7.^W 



JMP 
SAO 
T73A 

JMPo 



T73 + 4 

601^0 

6H(^1 



/TfST OF SAD IN L0CF5 



T74 



T74A 



T74W 



74 

T75 

Tr5 

STfN 

MOVE 

T74W 

L0CF5 
-3 

jmp» 

CHAIN 

JMP 

SAO 

T74A 

JMPe 



r5Lon 

T74 + 4 
6000 

60fll 



/TEST OF SAO IN L0CF6 



T75 



T75A 



T75W 



75 

T76 

TF6 

STFN 

MOVE 

T75W 

L0CF6 

-3 

Jmp» 

CHAIN 

JMP 

SAO 

T75A 

JMP« 



F6l0C 

T75 + 4 

6000 

60«1 



/TEST OF SAO IN L0CF7 



T76 



T76A 



T76W 



76 
T77 

TF7 

STFN 

MOVE 

T76W 

L0CF7 

-3 

JMP» 

CHAIN 

JMP 

SAO 

T76A 

JMP« 



F7L0C 

T76 + 4 

6000 

60«1 



/REPEAT TEST 
/TEST WORDS 



/RUN iF FiElH S available 

/SET FIELOS 

/TEST WORDS TO FIELD 5 



/Go TO FTElD 5. AC IS (^ . 



/REPEAT TEST 
/TEST WORDS 



/RUN IF FIELD 6 AVAILABLE 

/SET FIELDS 

/TEST WORDS TO FIELD 6 



/Go To FIElD 6. AC IS <^ . 



/REPEAT TEST 
/TEST WORDS 



/RUN IF FIELD 7 AVAILABLE 

/SET FIELDS 

/TEST WORDS TO FIELD 7 



/GO To FIElD 7. AC IS (^ . 



/REPEAT TEST 
/TEST WORDS 



.EJECT 
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«276Pi 


000077 


02761 


003003 


0276? 


100336 


02763 


100311 


02764 


002776 


02765 


016000 


0?766 


777773 


02767 


620101 


02770 


505215 


02771 


545233 


02772 


741000 


02773 


100604 


02774 


100223 


02775 


602763 


02776 


106001 


02777 


000000 


03000 


206001 


03001 


626004 


03002 


002770 


03003 


000100 


03004 


003027 


03005 


100513 


03006 


100336 


03007 


100311 


03010 


003022 


03011 


026000 


03012 


777773 


03013 


620102 


03014 


505215 


03015 


545230 


03016 


741000 


03017 


100604 


03020 


100223 


03021 


603007 


03022 


106001 


03023 


000000 


03024 


206001 


03025 


626004 


03026 


003014 


03027 


000101 


03030 


003053 


03031 


100517 


03032 


100336 


03033 


100311 


03034 


003046 


03035 


036000 


03036 


777773 


03037 


620103 


03040 


505215 


03041 


545226 



/TfST ThaT JMS in LOcri STORES Pr,-?-5 CORRECTLY 



T77 77 

Tl^0 
STFN 
MOVE 
T77W 

Locn 

-5 

JMPo 
T77A AND 
SAD 
SKP 
ERRORa 

CHAIN 
JMP 

T77W JMS 


LAC 
JMP» 
T77A 

/TEST THaT J^"S 

T100 100 
T101 
TF2 
STFN 
MOVE 
T100W 
L0cr2 
-5 
JMP» 

T1PI0A AND 
SAD 
SKP 
ERRORA 

CHAIN 
JMP 

T100W JMS 


LAC 
JMP* 
T100A 

/TEST THAT JMS 



Tl01 



Tl0lA 



101 

T102 

TF3 

STFN 

MOVE 

Tl«lW 

L0CE3 

-5 

JMP* 

AND 

SAO 



EiLOC 
(K70K 
(Ki0K 



T77 + 3 

6001 

6001 
6004 



/SET FIE I. OS 

/TEST WORDS TO FIELD 1 



/GO TO FIELD 1 

/ISOLATE AC 3-5 

/AC3-5=001? 

/YES. 

/NO. ERROR. JMS 



IN FIELn 1 Din 



/NOT STORE PC3-5 CORRECTLY. 

/REPEAT TEST, 
/TEST WORDS 



IN L0CF2 STORES PC3-5 cORREcTLY 



r2L0C 
(K70K 
(K20K 



T100+4 
6001 



/RUN IF FIELD 2 AVaILARLF 

/SET FIELDS 

/TEST WORDS TO FIELD 2 



/GO TO FIELD 2 

/ISOLATE AC3-5 

/AC3-5=010? 

/YES, 

/NO. ERROR, JMS 



IN FIELD 2 



/DID NOT STORE PC3-5 CORRECTLY, 



/TEST WORDS. 



6001 
6004 

IN L0CF3 STORES PC3-5 CORRECTLY 



F3L0C 
(K70K 
(K30K 



/RUN IF FIELD 3 AVAILABLE 

/SET FIELDS 

/TEST WORDS TO FIELD 3 



/GO TO FIELD 3 
/ISOLATE AC3-5 
/AC3-5=011? 
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H3f)42 
03043 

03014 
03045 
03046 
03047 
03050 
03051 
03052 

03053 
03054 
03055 
03056 
03057 
03060 
03061 
0306? 
03063 
03064 
03065 
03066 
03067 

03070 
03071 
0307? 
03073 
03074 
03075 
03076 

03077 
03100 
03101 
03102 
03103 
03104 
03105 
03106 
03107 
03110 
03111 
0311? 
03113 

03114 
03115 
03116 
03117 
03120 
03121 
03122 



741000 
10060^ 

1002?3 
603033 
106001 
000000 
206001 
626004 
003040 

000102 
003077 
100523 
100336 
100311 
003072 
046000 
777773 
620104 
505215 
545261 
741000 
10060'' 

100223 
603057 
106001 
000000 
206001 
626004 
003064 

000103 
003123 
100527 
100336 

100311 
003116 
056000 
777773 
620105 
505215 
545224 
741000 
10060^ 

100223 
603103 
106001 
000000 
206001 
626004 
003110 



SKP 
ERRORA 

CHAIM 
JMP 
T101W JMS 


LAC 
JMp» 
T101A 
/TEST ThaT JMS 
T102 102 
T103 

Tr4 

STTN 
MOVE 
T102W 
L0CF4 
-5 

JMP» 
T102A AND 
SAO 
SKP 
ERRORA 

CHAIN 
JMP 

T102W JMS 


LAC 
JMp« 
T102A 

/TEST ThaT JMS 

T103 103 
T104 
Tr5 
STFn 
MOVE 
T103W 
L0Cr5 
-5 
JMP» 

T103A AND 
SAO 
SKP 
ERRORA 

CHAIN 
JMP 
T103W JHS 


LAC 
JMP* 
T103A 

/Test thaT jms 



Tll^l + 4 

60C1 
6004 



IN LOCF4 STORES PC3-5 CORRECTLY 



/YES. 

/NO. ERROR. JMS IN FIELD .^ 10 
/NOT STORE Pc3-5 CHRRErTLY. 

/REPEAT TEST. 
/TEST WORDS. 



F4L0C 
(K70K 
(K40K 



T102+4 
6001 



/RUN IF FIELn 4 AVAILARLF 

/SET FIELDS 

/TEST WORDS TO FIELD 4 



/GO TO FIELD 4 

/ISOLATE AC3-5 

/AC3-5'= 00? 

/YES. 

/NO, ERROR. JMS 



IN FIELD 4 DID 



/NOT STORE PC3-5 CORRECTLY, 

/REPEAT TEST. 
/TEST WORDS. 



6001 
6004 

IN LOCF5 STORES PC3-5 cORREcTLY 



F5L0C 
(K70K 
(K50K 



T103+4 
601^1 

6001 

6004 



/RUN IF FIELD 5 AVAILARLE 

/SET FIElDS 

/TEST WORDS TO FIELD 5 



/GO TO FIELD 5 
/ISOLATE AC3-5 
/AC3-5= 01? 
/YES. 

/NO. ERROR. JMS 



IN FIELD 5 DID 



/NOT STORE Pc3-5 CORRECTLY, 

/REPEAT TEST. 
/TEST WORDS. 



IN L0CF6 STORES PC3-5 cORRECTLY 



PAT-E ,^7 



EXMl 5 



^1 3 1 2 3 

0312'S 
pi3^26 
03127 
ii 3 1 3 C 
513131 
-131 32 
^3133 
fl3l34 
ajlS^i 
33136 
?'3l37 

[1314fi 
?.314l 
03142 
03143 
03144 
03145 
03146 

03147 
03150 
03151 
03152 
03153 
03154 
03155 
03156 
03157 
03160 
03161 
03162 
03163 

03164 
03165 
03166 
03167 
03170 
03171 
03172 



C^00104 
003147 
100533 
100336 
100 311 
003142 
P!66000 
777773 
620106 
505215 
545222 
741000 
1 00604 

100223 
603127 
106001 
000000 
206001 
626004 
003134 

000105 
003173 
100537 

100336 
100311 
003166 
076000 
777773 
620107 
505215 
545215 
741000 
100604 

100223 
603153 
106001 
000000 
206001 
626004 
003160 



Ti(7'4 104 

Tl'5 

SlfN 
MOVE 
Tl?i4W 
L0CF6 
-5 

JMP» 
jl(14A AND 
SAD 
SKP 
FPRORa 

CHAIN 
JMP 

T104W JMs 


LAC 
JMp» 
T104A 

/TEST ThaT JMS 



Tl05 



T105A 



T105W 



105 

T106 

TF7 

STFN 

MOVE 

Tli35W 

L0CF7 

-5 

JMP» 

AND 

SAO 

SKP 

erropa 

CHAIN 

JMP 

JMS 



LAC 

JMp« 

T105A 

.EJECT 



r6L0C 
('<70K 



Tlt14 + 4 
6001 

6001 
6 0f"4 



/RUN IF ElCLn 6 AVAlLARLt- 

/SFT FIELDS 

/TEST WORDS TO FIELD 6 



/GO TO fIeLD 6 

/Isolate ac3-5 

/AC3-'; = ll0? 

/YES. 

/NO, ERROR. JMS 1 

/NOT STORE. PC3-5 



N FILLU 6 DID 
CORRECTLY 



/repeat test 
/tEst words. 



IN L0cF7 STORES PC3-5 cORREcTLY 



F7L0C 
(K70K 
(K70K 



T105+4 
6001 

6001 
6004 



/RUN IF FIELD 7 AVAILABLE 

/SET FIELDS 

/TEST WORDS TO FIELD 7 



/GO TO FIELD 7 

/ISOLATE AC3-5 

/AC3-5=1117 

/YES. 

/NO. ERROR. JMS IN FIELD 7 

/NOT STORE PC3-5 CORRECTLY 



DID 



/REPEAT TEST 
/TEsT WORDS. 
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03173 


000106 


03174 


003214 


03175 


100336 


03176 


205230 


03177 


060101 


03200 


205262 


03?01 


040020 


03202 


143204 


03203 


620101 


03204 


(100000 


03205 


203204 


03206 


505215 


03207 


545233 


03210 


741000 


03211 


100604 


03212 


100223 


03213 


603176 


03214 


000107 


03215 


003236 


03216 


100513 


03217 


100336 


03220 


205230 


03221 


060102 


03222 


205263 


03223 


040020 


03224 


143226 


03225 


620102 


03226 


000000 


03227 


203226 


0323f 


505215 


03231 


545230 


03232 


741000 


03233 


100604 


03234 


100223 


03235 


603220 


03236 


000110 


03237 


003260 


03240 


100517 


03241 


100336 


03242 


205230 


03243 


060103 


03244 


205264 


03245 


040020 


03246 


143250 


03247 


620103 


03250 


000000 


03251 


203250 


03252 


505215 


032g3 


545226 


03254 


741000 



/TFST THAT CaL» IN LOcFl RErpRFMCE? FIELP f> iNp STORES Pr3-5 CORRECTLY, 
T106 106 



TiP6A 



Tli17 

STfN 

LAC 

DAC» 

LAC 

PAC 

DZM 

JMP« 


LAC 

ANn 

SAD 
SKP 
ERRORA 

CHAIN 
JMP 



(CALo 

FlLOC 

(Ti06A 

L2I?' 

T106A 

FlLOc 

T106A 
(K70K 
(Kl0K 



T106+3 



/SET FIELD? 

/TESt word jO LOCEl 

/SET INDIRECT POINTER IN LOC 2<^ 

/TO Ti?)6A. 

/i'fRO OUT Ti(«6^ 

/GO TO FIELD 1 TO pO CAL« 

/GET C (Titi6A) 

/ISOLATE AC3-5 

/AC3-5 = i^0l? 

/YES, 

/NO. ERROR. CAl» in LOCFl 

/DID NOT STORE PC3-5 CORRECTLY. 



/REPEAT TEST. 
/TEST THaT CAL« in LOCFg REFERENCES FIELD <?> AND STORES PC3-5 CORRECTLY, 
T1517 107 



T107A 



T110 

TF2 

STFN 

LAC 

DAC» 

LAC 

DAC 

DZM 

JMP» 



LAC 

AND 

SAD 

SKP 
ERRORA 

CHAIN 
JMP 



(CAL» 

F2L0C 

(Tl07A 

L20 

T107A 

F2LOC 

T107A 
{K70K 
(K20K 



T107+4 



/RUN IF FIELD 2 AVAILABLE 

/SET FIELDS 

/TEST WORD TO L0CF2 

/SET INDIRECT POINTER IN LOC20 

/TO T107A 

/EERO TO T107A 

/GO TO FIELD 2 TO DO CAL« 

/GET C(T107A) 

/ISOLATE AC3-5 

/AC3-5:010? 

/YES. 

/NO. ERROR. CAi_« JIM lOCF2 

/DID NOT STORE PC3-5 CORRECTLY. 



/REPEAT TEST. 
/TEST THAT CAL« IN LOCF3 REFERENCES FIELD AND STORES PC3-5 CORRECTLY, 
T110 110 



T110A 



Till 

TF3 

STFN 

LAC 

DAC» 

LAC 

DAC 

D2M 

JMPe 



LAC 

AND 

SAD 

SKP 



{CAL» 

F3L0C 

(T110A 

L20 

T110A 

F3L0C 

T110A 
(K70K 
{K30K 



/RUN [f FjElD 3 AVAILABLE 

/SEt FIELDS 

/TEST WORD TO L0CF3 

/SET POINTER IN LOC20 TO T110A 

/2Er0 T110A 

/GO TO FIELD 3 TO DO CAL» 

/GET C (T110A) 
/ISOLATE AC3-5 
/AC3-5=0ll? 
/YES. 
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03255 

{13256 

03257 

0326f» 
03261 
PI3262 
03263 
03264 
03265 
03266 
03267 
03270 
03271 
03272 
03273 
03274 
03275 
03276 
03277 

03300 
03301 

03302 
03303 
03304 
03305 
03306 

03307 
03310 

03311 
03312 
03313 
03314 
03315 
03316 
03317 
03320 
03321 

03322 
03323 

0332" 
03325 
03326 
03327 
03330 
03331 
03332 
03333 
03334 
03335 



EXM15 

100604 

100223 
603242 

00P111 
003302 
100523 
100336 
205230 
06?'104 
205265 
040020 
143272 
620104 
000000 
203272 
505215 
545261 
741000 
100604 

100223 
603264 

000112 
003324 
100527 
100336 
205230 
060105 
205266 
040020 
143314 
620105 
000000 
203314 
505215 
545224 
741000 
100604 

100223 
603306 

000II3 
003346 
100533 
100336 
205230 
060106 
205267 
040020 
143336 
620106 



FRRORa /no. FRROR. CAL» in L0CF7 

/DID NOT STORE Pr3-5 CORRECTLY. 
CHAIN 

JMP T110+4 /REPEAT TEST. 

/TEST THaT CaI-» in LOCE4 REFERENCES FIELn (7i aND STORFS PC3-5 cPRREcTLY, 

Till 



TUIA 



ill 

T112 

TF4 

STEN 

LAC 

DAC» 

LAC 

DAC 

Di» 

JMP» 



LAC 

AND 

SAD 

SKP 

ERRORA 

CHAIN 
JMP 



(CAL« 

F4LOC 

(TlllA 

L20 

TlllA 

F4L0C 

TlllA 
(K70K 
(K40K 



Tlll+4 



/RUN lE FiElO 4 AVAILABLE 

/sEt fields 

/test word to l0ce4 

/set pointer im loc20 to tma 

/HERO TlllA 

/GO TO FIELD 4 TO 00 CAL» 

/GET C (TlllA) 

/ISOLATE AC3-5 

/AC3-5= pie? 

/YES. 

/NO. Error. CAl» 1n L0CF4 

/DID NOT STORE PC3-5 CORRECTLY. 

/REPEAT TEST 



/TEST THAT CAL« IN LOCF5 REFERENCES FIELD AND STORES PC3-5 CORRECTLY, 
T112 112 



T112A 



T113 

TF5 

STFN 

LAC 

DAC» 

LAC 

DAC 

DZM 

JMP» 



LAC 

AND 

SAD 

SKP 

ERRORA 

CHAIN 
JMP 



(CAL» 

F5LOC 
(T112A 
L20 
T112A 

F5L0C 

T112A 
(K70K 
(K50K 



TII2+4 



/RUN iF FIELD 5 AVAILABLE 

/SET FIELDS 

/TEST WORD TO L0CF5 

/SET POINTER IN LOC20 TO T112A 

/ZERO T112A 

/GO TO FIELD 5 TO DO CALo 

/GET C (T112A) 

/ISOLATE AC3~5 

/AC3-5=l0l? 

/YES. 

/NO. ERROR. CAl* IN L0CF5 DiD 

/NOT STORE PC3-5 CORRECTLY. 



/REPEAT TEST 
/TEST THAT CaL» IN L0CF6 REFERENCES FIELD AND STORES PC3-5 CORRECTLY, 
TII3 II3 



T114 

TF6 

STFN 

LAC 

DAC» 

LAC 

DAC 

DgM 

JMP, 



(CAL« 

F6L0C 

(T113A 

L20 

T113A 

F6L0C 



/RUN iF FiElD 6 AVARABlF 

/SET FIELDS 

/TEST WORD TO L0CF6 

/SET POINTER IN LOr20 TO Tii3A 

/ZERO T113A 

/GO TO FIELD 6 TO 00 CAL» 
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03336 

03337 

0374(1 
0334I 
0334? 
03343 

03344 
03345 

03346 
03347 
03350 
03351 
03352 
03353 
03354 
03355 
03356 
03357 
03360 
03361 
03362 
03363 
03364 
03365 

03366 
03367 



000000 
203336 
S05215 
545222 
741000 
100604 

100223 
603330 

000114 
003370 
100537 
100336 
205230 
060107 
205270 
040020 
143360 
620107 
000000 
203360 
505215 
545215 
741000 
100604 

10f0223 
603352 



T113A 

LAC 

ANn 

SAD 
SKP 

Errora 

CHAIN 
JMP 
/TEST THaT CaL« 



T114 



T114A 



114 

T115 

TF7 

STfN 

LAC 

DAC» 

LAC 

OAC 

D^M 

JMP» 



LAC 

AND 

SAD 

SKP 

ERRORA 



CHAIN 

JMP T114+4 

.EJECT 



T113A. 
(K70K 
(K60K 



T113+4 
IN LOCP7 



(CAL» 
r7L0C 
(■'■114A 

L20 

T114A 

r7L0C 

T114A 

(K70K 
(K70K 



/GET C (T113A) 
/ISOLATE AC3-5 

/YFS. 

/NO. ERROR. CAl» IN LOOFfr 

/DID NOT STORE PC3-5 CORRECTLY. 

/REPEAT TEST. 
REFERENCES FIELD aND STORES Pr3-5 C^IRRECTLY, 



/RUN iF FiElD 7 AVAILABlF 

/SET FIELDS 

/TEST WORD TO L0CF7 

/SET POINTER IN LOC20 TO T114A 

/2ERO Tii4A 

/GO TO riELO 7 TO DO CAL« 

/GET C (T114A) 

/ISOLATE AC3-5 

/AC3-5= 11? 

/YES. 

/NO. ERROR. CAL« IN L0CF7 

/DID NOT STORE PC3-5 CORRECTLY, 

/REPEAT TEST 
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«337f1 


000115 


03371 


003412 


PI3372 


100336 


03373 


100311 


03374 


003407 


03375 


016000 


03376 


777775 


03377 


205271 


03401? 


046001 


03401 


205250 


03402 


040010 


03403 


620101 


03404 


100604 


03405 


100223 


03406 


603373 


03407 


620010 


03410 


626002 


03411 


003404 


03412 


000116 


03413 


003435 


03414 


100513 


03415 


100336 


03416 


100311 


03417 


003432 


03420 


026000 


03421 


777775 


03422 


205272 


03423 


046001 


03424 


205250 


03425 


040010 


03426 


620102 


03427 


100604 


03430 


100223 


03431 


603416 


03432 


620010 


03433 


626002 


03434 


003427 


03435 


000117 


03436 


003460 


03437 


100517 


03440 


100336 


03441 


100311 


03442 


003455 


03443 


036000 


03444 


777775 


03445 


205273 


03446 


046001 


03447 


205250 


03450 


040010 


03451 


620103 



/Test thaT auto-inpe^ from fiei-d i ptferfNce? field a^t points to field v^ 

T115 115 



Tll5A 
Tll5fi 
T115W 



T116 

STfN 

MOvE 

T115W 

LOCFi 

-3 
LAC 

DAC 

LAC 

DAC 

JMP« 

ERROR 



(JviP T115B 

LOCF0+1 

(LOCF0 

FlLOC 



/SET FIELDS 

/tESt words jO field 1 



/RETURN Instruction to locf0+i 

/SET LOC10 IN FIELD ? 



/repeat test, 
/tEst worDs. 



/GO TO FIELD 1 

/ERROR. aUTO-INQEXING FROM FIELD i 
/POINTED TO FIELD 1 INSTEAD OF FIELD 
CHAIN 

JMP T115+3 
JMP« 10 
JMP« 6002 
T115A 
/T^ST That AUTO-INoe^ from FIE^o ^ ReFeRe^CeS FIeLd '^ *Nn POINTS TO FIELD ^ 
T116 116 
r 

/RUN iF FiElD 2 AVAILABLE 

/SET FIELDS 

/TEST WORDS TO FIELD 2 



/RETURN INSTRUCTION TO LoCF0+l 
/SET LOC10 IN FIELD 

/GO TO FIELD 2 

/ERROR. AUTO INDEXING FROM FIELD 2 

/POINTED TO FIELD 2 INSTEAD OF FIELD 0, 

T116+4 

10 

6002 
T116A 
/TEST THaT aUTO-INdEX FROM FIELD 3 REFERENCES FIELD aNd POINTS TO FIELD 
T117 117 





T117 






TF2 






STFN 






MOVE 






T116W 






L0CF2 






-3 






LAC 


(JmP T116B 




DAC 


LOCF0+1 




LAC 


(LOCF0 




DAC 


L10 




JMP» 


F2L0C 


T116A 


ERROR 




T116B 


CHAIN 






JMP 


T116+4 


T116W 


JMP» 


10 




JMP» 


6002 



/REPEAT TEST 
/TEST WORDS. 



T120 

TF3 

STFN 

MOVE 

T117W 

L0CF3 

-3 

LAC 

DAC 

LAC 

DAC 

JMP» 



(JmP T117B 

LOCF0+1 

(LOCF0 

L10 

F3L0C 



/RUN iF Field 3 available 

/sEt fields 

/test words to field 3 



/RETURN Instruction to loCF0+i 

/SET LOC10 IN field 
/GO TO field 3 
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03452 


100604 


T117A 


ER-^OR 




0345.'^ 


100223 


T117R 


CHAIN 




03454 


603441 




JMP 


T117+4 


03455 


620010 


T 1 1 7 W 


JHPo 


]'i^ 


03456 


626002 




JMPo 


6002 


03457 


003452 




T11 7A 








/TrST 


THaT aUTO. 


-INpEX rROM 


03460 


000120 


T1?0 


12^-' 




03461 


003503 




T121 




0346? 


100523 




Tl^4 




03463 


100336 




STF"N 




03464 


100311 




MOVE 




03465 


003500 




T130W 




03466 


046000 




L0CF4 




03467 


777775 




-3 




03470 


205274 




LAC 


(JmP T120B 


03471 


046001 




DAC 


LOCF0+1 


03472 


205250 




LAC 


(LOCF0 


03473 


040010 




DAC 


Llf 


03474 


620104 




JMP6 


F4L0C 


03475 


100604 


T120A 


ERROR 




03476 


100223 


J120B 


CHAIN 




03477 


603464 




JMP 


T120+4 


03500 


620010 


T120W 


JMPa 


10 


03501 


626002 




JMP^j 


6002 


03502 


003475 




T120A 








/TEST 


THaT aUTO, 


-INDEX FROM 


03503 


000121 


Tl21 


121 




03504 


003526 




TI22 




03505 


100527 




TF5 




03506 


100336 




STFN 




03507 


100311 




MOVE 




03510 


003523 




T12IW 




03511 


056000 




L0Cr5 




03512 


777775 




-3 




03513 


205275 




LAC 


(JmP Ti2iS 


03514 


046001 




DAC 


LOCF0+1 


03515 


205250 




LAC 


(LOCF0 


03516 


040010 




DAC 


H0 


03517 


620105 




JMP« 


F5L0C 


03520 


100604 


T121A 


ERROR 




03521 


100223 


TI2IB 


CHAIN 




03522 


603507 




JMP 


T121+4 


03523 


620010 


T121W 


JMP» 


10 


03524 


626002 




JMP» 


6002 


03525 


003520 




T121A 








/TEST 


ThAT AUTO 


-INDEX FROM 


03526 


000122 


T122 


122 




03527 


003551 




T123 




03530 


100533 




TE6 




03531 


100336 




STFN 




03532 


100311 




MOVE 





/ERROR. aUTO: INDEXING FROM FIELD 3 
/POlNTEn TO FIELD 3 IKSTfa'T <^f FIELD 

/REPEAT TEST 
/TEST WORDS 



FIELD 4 REFERENCES FIELD 1?) aNh PO!^TS TO FIELD p. 



/RUN jf fl^LD 4 AVAilABlF 

/SEt FIELDS 

/TEST WORDS TO FIELD 4. 



/RETURN Instruction to LnCFa+i 

/SET LOC10 IN FIELD i-i 

/GO TO FIELD 4 

/ERROR. AUTO-InDEXInG From FIElD 4 

/POINTED TO FIELD 4 INSTEAD OF FIELD 

/REPEAT TEST. 
/TEST WORDS. 

FlELo 5 REFERENCES FIELD A^D POINTS TO FIELD 



/RUN IF FIELD 5 IS AVAILABLE 
/SET FIELDS 

/TEST WORDS TO FIELD 5 



/RETURN Instruction Tq LnCF0+i 

/SET LOC10 !N FIELD 

/GO TO FIELD 5 

/ERROR, aUTO-INDEXING FROM FIELD 5 

/POINTED TO FIELD 5 INSTEAD DE FIELD 

/REPEAT TEST 

/TEST Words. 

F[ElD 6 references F]ElD AnH POINTS TO FjElD 



/RUN jF Field 6 availabl 

/SET FIELDS 

/TEST WORDS TO FIELD 6 
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1^3533 


003546 


k53534 


0660PI0 


03535 


777775 


^53536 


205276 


03537 


046001 


0354P! 


205250 


03541 


040010 


03542 


620106 


03543 


100604 


83544 


100223 


03545 


603532 


03546 


620010 


03547 


626002 


03550 


003543 


03551 


000123 


0355? 


003574 


03553 


100537 


03554 


100336 


03555 


100311 


03556 


003571 


03557 


076000 


03560 


777775 


03561 


205277 


03562 


046001 


03563 


205250 


03564 


040010 


03565 


620107 


03566 


100604 


03567 


100223 


03570 


603555 


03571 


620010 


03572 


626002 


03573 


003566 



T122W 
L0CF6 
-3 

LAC (JmP T1228 /REtURN INSTRUCTION To LoCF0+i 
DAC LOrF0+i 

LAC (LOcr0 /SET LOC10 IN FIELD ^ 

DAC Lli? 

JMP, F6L0C /GO TO FIELD 6 

■'■122A ERROR /ERROR. aUTO-INDEX FROM FIELD ft 

/POIMTED TO FIELD 6 INSTEAD OF FIELD 
T1?2B CHAIN 

JMP T122*4 /REPEAT TEST 

T122W JMP« 10 /TEST WorDS 

JMP» 6002 

T122A 

/Test thaT aUto.index from fieLq 7 References field a^d points to field 

T123 123 

Tl24 

Tf7 /RUN IF FIELD 7 AVAILABLE 

STFN /SET FIELDS 

MOVE /TEST WORDS TO FIELD 7 

T123W 

L0CF7 

-3 

LAC (JmP T123B /RETURN INSTRUCTION TO LoCF0+l 

DAC LOCF0+1 

LAC {LOCF0 /SET LOC10 IN FIELD 0. 

DAC L10 

JMP» F7L0C /GO TO FIELD 7 

T123A ERROR /ERROR. aUTQ-INQEX FROM FIELD 7 

/POINTED TO FIELD 7 INSTEAD OF FIELD 
T123B CHAIN 

JMP T123+4 /REPEAT TEST 

T123W JMP» 10 /TEST WORDS 

JMP» 6002 

T123A 

.EJECT 
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/TEST THAT INTErrUpT I'rOM FIELD 1 STOrEs pC3-5 COrrECtLY 



?I3'574 


00P124 


03575 


003626 


03576 


100376 


03577 


100311 


0360f^ 


003620 


03601 


016000 


0360? 


777772 


03603 


205300 


03604 


040001 


03605 


100557 


03606 


620101 


03607 


200000 


03610 


505215 


03611 


545233 


03612 


741000 


03613 


100604 


03614 


100223 


03615 


603577 


03616 


100604 


03617 


603614 


03620 


700042 


03621 


740000 


03622 


740000 


03623 


700002 


03624 


626005 


03625 


003616 


03626 


000125 


03627 


003661 


03630 


100513 


03631 


100336 


03632 


100311 


03633 


003653 


03634 


026000 


03635 


777772 


03636 


205301 


03637 


040001 


03640 


100557 


03641 


620102 


03642 


200000 


03643 


505215 


03644 


545230 


03645 


74I000 


03646 


100604 


03647 


100223 


03650 


603632 


03651 


100604 


03652 


603647 


03653 


700042 


03654 


740000 


03655 


740000 


03656 


700002 



Tl24 



T124A 



124 

T125 

STEN 

MOVE 

T124W 

LOCEl 

-6 

lac 

OAC 

JMs 

JMP, 

LAC 

AND 

SAD 

SKP 

ERRORa 



/SET FIELDS 
/TEST WORDS 



TO FIELD 1 



(JmP T124A 

1 

STFLG 

FlLOC 



(K70K 

(K10K 



CHAIN 

JMP T124+3 
T124B ERROR 

JMP .-3 
T124W ION 

NOP 

NOP 

lOF 

JMP» 6005 

T124B 
/TEST THaT INTERRUPT FROM FIELD 



/sEt Interrupt return 

/SEt TTY PRINTER FLAG. 

/GO TO FIELD 1 

/GET CONTENTS OF LOC0 

/ISOLATE AC3-5 

/AC3-5=001? 

/YES. 

/NO. ERROR. INTERRUPT FROM FIELD 1 

/STORED PC3-5 INCORRECTLY 

/REPEAT TEST 
/FAILED TO 
/INTERRUPT 
/TEST WORDS. 



Tl25 



T125A 



T125B 
T125W 



125 

T126 

TF2 

STFN 

MOVE 

T125W 

L0CF2 

-6 

lAC 

DAC 

JMg 

JMP« 

LAC 

AND 

SAD 

SKP 

errora 

CHAIN 

JMP 

ERROR 

JMP 

ION 

NOP 

NOP 

lOF 



(JmP T125A 

stplg 

F2L0C 


(K70K 
(K20K 



T125+4 



-3 



2 STORES PC3-5 cORRECTLY, 



/RUN IF FIELD 2 AVAILABLE 

/SET FIELDS 

/TEST WORDS TO FIELD 2 



/SET Interrupt return 

/sEt TTY PRINTER FLAG 

/GO TO FIELD 2. 

/GET CONTENTS OF LOC0 

/ISOLATE AC3-5 

/AC3-5=010? 

/YES. 

/NO. ERROR. INTERRUPT FROM FIELD 2 

/STORED PC3-5 INCORRECTLY. 

/REPEAT TEST. 
/FAILED TO INTERRUPT 

/TEST WORDS, 
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03657 


626005 


0366?! 


003651 


03661 


000126 


0366? 


003714 


03663 


100517 


03664 


100336 


03665 


100311 


03666 


003706 


03667 


036000 


03670 


777772 


03671 


205302 


03672 


040001 


03673 


100557 


03674 


620103 


03675 


200000 


03676 


505215 


03677 


545226 


03700 


741000 


03701 


100604 


03702 


100223 


03703 


603665 


03704 


100604 


03705 


603702 


03706 


700042 


03707 


740000 


03710 


740000 


03711 


700002 


03712 


626005 


03713 


003704 


03714 


000127 


03715 


003747 


03716 


100523 


03717 


100336 


03720 


100311 


03721 


003741 


03722 


046000 


03723 


777772 


03724 


205303 


03725 


040001 


03726 


100557 


03727 


620104 


03730 


200000 


03731 


505215 


03732 


545261 


03733 


741000 


03734 


100604 


03735 


100223 


03736 


603720 


03737 


100604 


03740 


603735 


03741 


700042 



JMP» 6?i^5 

T125B 

/Test thaT interrupt from field 



3 stores PC3-5 CORRECTLY, 



Tl26 



Ti26A 



126 

T127 

TF3 

STFN 

MOVE 

Tl?6W 

L0CF3 

-6 

LAC 

DAC 

JMs 

JMP» 

LAC 

AND 

SAD 

SKP 

ERRORa 



(JMP T126A 

1 

STFLG 

F3L0C 



(K70K 

(K30K 



CHAIN 

JMP Ti26*4 
T126B ERROR 

JMP .-3 
T126W ION 

NOP 

NOP 

lOF 

JMPft 6005 

T126B 
/TEST THAT INTERRUPT FROM FIELD 



T127 



T127A 



T127B 



127 

T130 

TF4 

STFN 

MOVE 

T127W 

L0CF4 

-6 

LAC 

DAC 

JMs 

JMP« 

LAC 

AND 

SAO 

SKP 

ERRORa 

CHAIN 
JMP 
ERROR 
JMP 



(JmP T127A 

1 

STFLG 

F4L0C 



(K70K 

(K40K 



T127+4 



/RUN IF FIELD 3 AVAILABLE 

/SET FIELDS 

/TEST WORDS TO FIELD 3 



/SET INTERRUPT RETURN 

/SET TELEPRINTER FLAG. 

/GO TO FIELD 3 

/GET CONTENTS OF LOC 

/ISOLATE AC3-5 

/'AC3-5 = 0ii? 

/YES. 

/NO. ERROR. INTERRUPT FROM FIELD 3 

/STORED PC3-5 Incorrectly. 

/REPEAT TEST. 
/FAILED TO INTERRUPT 

/TEST WORDS. 



T127W ION 



4 STORES PC3-5 CORRECTLY. 



/RUN IF FIELD 4 AVAILABLE 

/SET FIELDS 

/TEST WORDS TO FIELD 4 



/SET INTERRUPT RETURN 

/SET TELEPRINTER FLAG. 

/GO TO FIELD 4 

/GET CONTENTS OF LOC0 

/ISOLATE AC3-5 

/AC3-5=i007 

/YES. 

/NO. ERROR. INTERRUPT FROM FIELD ^ 

/STORED pC3-5 InCoRRECTLY. 

/REPEAT TEST. 
/FAILED TO INTERRUPT 

/TEST WORDS. 
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03742 


740000 


03743 


740000 


03744 


700002 


03745 


626005 


03746 


003737 


03747 


000130 


03750 


004002 


03751 


100527 


03752 


100336 


03753 


100311 


03754 


003774 


03755 


056000 


03756 


777772 


03757 


205304 


03760 


040001 


03761 


100557 


03762 


620105 


03763 


200000 


03764 


505215 


03765 


545224 


03766 


741000 


03767 


100604 


03770 


100223 


03771 


603753 


03772 


100604 


03773 


603770 


03774 


700042 


03775 


740000 


03776 


740000 


03777 


700002 


04000 


626005 


04001 


003772 


04002 


000131 


04003 


004035 


04004 


100533 


04005 


100336 


04006 


100311 


04007 


004027 


04010 


066000 


04011 


777772 


04012 


205305 


04013 


040001 


04014 


100557 


04015 


620106 


04016 


200000 


04017 


505215 


04020 


545222 


04021 


741000 


04022 


100604 


04023 


100223 


04024 


604006 



NOP 
NOP 
lOF 

JMP» 600b 
T127B 
/TEST THaT interrupt FROM FIELD 

Tl30 130 

Tl31 

TF5 

STFN 

MOVE 

T130W 

L0CF5 

-6 

LAC {JmP T130A 

OAC 1 

JMs STFLG 

JMP« F5L0C 
Ti30A LAC 

AND (K70K 

SAO (K50K 

SKP 

ERRORA 



CHAIN 

JMP T130+4 
T130B ERROR 

JMP .-3 
T130W ION 

NOP 

NOP 

lOF 

JMP« 6005 

T130B 
/TEST THAT INTERRUPT FROM FIELD 



5 STORES PC3-5 CORREcTLY , 



/RUN IF FIELD 5 AVAHLABLE 

/SET FIELDS 

/TEST WORDS TO FIELD 5. 



/SET Interrupt return 

/SEt teleprinter FLAG. 

/GO TO FIELD 5 

/GET CONTENTS OF LOC0 

/ISOLATE AC3-5 

/AC3-5=101? 

/YES. 

/NO. ERROR. INTERRUPT FROM FIELD 5 

/STORED PC3-5 INCORRECTLY 

/REPEAT TEST. 
/FAILED TO INTERRUPT 

/TEST MORDS. 



T131 



T131A 



131 

T132 

TF6 

STFN 

MOVE 

T131W 

L0CF6 

-6 

LAC 

DAC 

JMs 

JMP, 

LAC 

AND 

SAD 

SKP 

ERRORA 

CHAIN 
JMP 



(JmP T131A 

1 

STFLG 

F6L0C 



(K70K 

(K60K 



Tl3i*4 



6 STORES PC3-5 CORRECTLY, 



/RUN IF FIELD 6 AVAILABLE 

/SET FIELDS 

/TEST MORDS TO FIELD 6 



/SET Interrupt return 

/SET teleprinter FLAG 

/GO to field 6 

/GET CONTENTS OF LOC0 

/ISOLATE AC3-5 

/AC3-5=110? 

/YES. 

/NO. ERROR. INTERRUPT FROM FIELD 6 

/STORED PC3-5 INCORRECTLY. 

/REPEAT TEST. 
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P)402'5 


1006PI4 


04026 


604023 


04027 


70004? 


04030 


74000H 


04031 


740000 


0403? 


700002 


04033 


626005 


04034 


004025 


04035 


000132 


04036 


004070 


04037 


100537 


04040 


100336 


04041 


100311 


0404? 


004062 


04043 


076000 


04044 


777772 


04045 


205306 


04046 


040001 


04047 


100557 


04050 


620107 


04051 


200000 


04052 


505215 


04053 


5452I5 


04054 


741000 


04055 


100604 


04056 


100223 


04057 


604041 


04060 


100604 


04061 


604056 


04062 


700042 


04063 


740000 


04064 


740000 


04065 


700002 


04066 


626005 


04067 


004060 



Ti.-?iP FRROR /FAILED TO INTERRUPT 

JM= .-.< 
Ti3iW \0N /TEST WORnS. 

^0P 

NOP 

lOE 

JMP, 6005 

T131B 

/Test thaT interrupt from field 7 stores pc 3-5 correctly 

T172 13? 
T133 

TE7 /RUN iF Field 7 available 

STEN /SET fields- 

move /TEST WORDS TO FIELD 7 

T132W 
L0CF7 
-6 

LAC (JmP T13?A /SET INTERRUPT RETURN 

DAC 1 

JMs STELG /set TELEPRINTER FLAG. 

JMP« F7L0C /GO TO FIELD 7 

Ti32A LAC /GET C{LOC0) 

AND (K70K /ISOLATE AC 3-5 

SAO (K70K /AC3-5=111? 

SKP /YES. 

errora /no. Error. Interrupt from eielo 7 

/stored pc 3-5 incorrectly. 

CHAIN 

JMP T132+4 /REPEAT TEST 

Ti32B ERROR /FAILED TO INTERRUPT 

JMP ,-3 
T132H ION /TEST WORDS 

NOP 

NOP 

lOF 

JMP» 6005 

Tl32a 

•EJECT 
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f)1«7f 


00£'133 


04071 


004105 


0407? 


100336 


04073 


205307 


04074 


060101 


04075 


750000 


04076 


707764 


04077 


420101 


04100 


545307 


04101 


741000 


0410? 


100604 


04103 


100223 


04104 


604073 


04105 


000I34 


04106 


004123 


04107 


100513 


04110 


100336 


04111 


205247 


04112 


060102 


04113 


750000 


04114 


707764 


04115 


420102 


04116 


545247 


04117 


741000 


04120 


100604 


04121 


100223 


04122 


604111 


04l23 


000I35 


04124 


004141 


04125 


100517 


04126 


100336 


04127 


205307 


04130 


060103 


04131 


750000 


04132 


707764 


04133 


420103 


04134 


545307 


04I35 


74I000 


04136 


100604 


04137 


100223 


04140 


604127 


04141 


000136 


04142 


004157 


04143 


100523 


04144 


100336 


04145 


205247 


04146 


060104 


04147 


750000 



/9 MODF.tESx xCt» Cf" Lac INi LOCFl (DATA FETCMFn IN FIELD 1 ALSO) 
Tl?3 133 



T134 
STFN 

LAC 

nAC« 

CLA 

EBA 

XCt» 

SAD 

SKP 

ERRORa 

CHAIN 
JMP 



(LAC 16000 
FiLOC 



FlLOC 

(LAC 16000 



T133+3 



/SET FIELD? 

/TEST WORD TO LOCFi 



/XCjo OF LAC AT LOCFl 

/SKIP IF AC NOT=(LAC 16000 

/OK. 

/ERROR. XCT« OF LAC IN LOCFl WHILE 

/IM 9 MODE DID NOT REFERENCE FIELD 1, 



/REPEAT TEST. 
/9 MODE. TEST XqT* OF LaC IN LOcFg (OaTa FETcHED IM FIELD 2 ALSO) 
TI34 134 



T135 

Tr? 

STFN 

LAC 

DAC» 

CLA 

EBA 

XCT« 

SAD 

SKP 

ERRORa 

CHAIN 
JMP 



(LAC 6^500 
F2L0C 



F2L0C 
(LAC 61^00 



T134+4 



/RUN if Field 2 available 

/SET FIELDS 

/TEST WORD TO L0CF2 



/ASSERT 9 MODE 

/XCTs OF LAC AT L0CF2 

/SKIP IF AC NOT=(LAC 6000 
/OK. 

/ERROR. xqT* oe Lac in loce? While 

/IN q MODE DID NOj REFERENCE FIELD 2. 



/REPEAT TEST 
/9 MODE. TEST XcT« OF LAC IN LOCF3. (DATa FETCHED IN FIELD 3 ALSO). 
TI35 I35 



T136 

TE3 

STFN 

LAC 

DAC» 

CLA 

EBA 

XCT« 

SAD 

SKP 

ERRORa 

CHAIN 
JMP 



(LAC 16000 
F3LOC 



F3L0C 

(LAC 16000 



/RUN if ^iElD 3 AVAILABLE 

/sEt fields 

/test word to locf3 



/ASSERT 9 MODE 

/XCT» OF LAC AT L0CF3 

/SKIP IF AC NOT=(LAC 16000 

/OK. 

/ERROR. XcT» OE L^C I^ L0cF3 WHILE 

/IN 9 MqdE DID Not REFERENCE FIELD 3. 



T135+4 /REPEAT TEST 

/9 MODE. TEST XcT« OF LaC IN LOCF4 (QaTa FETcHEO IN FIELD 4 ALSO). 
T136 136 
T137 

TE4 /RUN If Field 4 available 

STFN /SET FIELDS 

LAC (LAC 61^00 /TEST WORD TO L0cr4 

OAC» F4L0C 

CLA 
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P1415f1 


707764 


?)4151 


42^1(^4 


«415? 


545247 


H41571 


7410C0 


P)4154 


100604 


04155 


100223 


04156 


604145 


04i57 


000137 


«4l6f 


004175 


04161 


100527 


0416? 


100336 


04163 


205307 


04164 


060105 


04165 


750000 


04166 


707764 


04167 


420105 


04170 


545307 


04171 


741000 


04172 


100604 


04173 


100223 


04174 


604163 


04175 


000140 


04176 


004213 


04177 


100533 


04200 


100336 


04201 


205247 


04202 


060106 


04203 


750000 


04204 


707764 


04205 


420106 


04206 


545247 


04207 


741000 


04210 


100604 


04211 


100223 


04212 


604201 


04213 


000141 


04214 


004231 


04215 


100537 


04216 


100336 


04217 


205307 


04220 


060107 


04221 


750000 


04222 


707764 


04223 


420107 


04224 


545307 


04225 


741000 


04226 


100604 





EBA 






XCTo 


F4L0C 




Sao 


(LAC 6000 




SKP 






ERRORa 






CHAIN 






JMP 


T136+4 


/9 MODE 


TfST 


xcT« OF Lac in 


Ti37 


'l37 

Tl40 

TF5 

STFN 






LAC 


(LAC 16000 




DAC« 


F5L0C 




CLA 






e:ba 






XCT, 


F5L0C 




SAD 


(LAC 16000 




SKP 






ERRORa 






CHAIN 






JMP 


T137+4 


/9 MODF 


. TEST 


XcT* OF LAC IN 


T140 


140 
T141 
TF6 
STFN 






LAC 


(LAC 6?I00 




DAC» 


F6L0C 




CLA 






EBA 






XCT, 


F6L0C 




SAD 


(LAC 6000 




SKP 






ERRORa 






CHAIN 






JMP 


T140+4 


/9 HODF 


. TEST 


XCT« OF LAC IN 


T141 


141 
T142 
TF7 
STFN 






LAC 


(LAC 16000 




DAC» 


F7L0C 




CLA 






EBA 






XCT» 


F7L0C 




SAO 


(LAC 16000 




SKP 





04227 100223 



ERRORa 



CHAIN 



/ASSERT 9 ^<OnE 

/XCTa OF LAC AT L0rF4 

/SKIP IF AC NOT z (LAC 60K)0 
/OK. 

/ERROR. XcT« OF LaC IM LncF4 WHILE 
/IN 9 MgOE DID Not REFERENCE FIELD 4, 

/REPEAT TEST 
L0CF5 (DaTa IN FIELD 5 ALSO). 



/RUN IF FIELP 5 AVAILABLE 

/SET FIELDS 

/TEST WORD TO LOCFs 



/ASSERT 9 MODE 

/XCT» OF LAC AT LOCF5 

/SKIP IF AC NOT r (LAC 16000 

/OK. 

/ERROR. xcT» OF Lac in locf5 While 

/IN 9 MODE did not REFERENCE FIELD 5, 

/REPEAT TEST 
L0CF6 (DaTa in field 6 ALSO) 



/RUN IF FIELD 6 AVAILABLE 
/SET FIELDS. 

/TEST WORD TO L0CF6 



/ASSERT 9 MODE 

/XCTo OF LAC IN L0CF6 

/SKIP IF AC NOT=(LAC 6000 
/OK 

/ERROR. XCT» OF LaC aT L0CF6 WHILE 
/IN 9 MqOE DID Not REFERENCE FIELD 6. 

/REPEAT TEST. 
L0CF7 (OaTa in field 7 ALSO). 



/RUN IF FIELD 7 AVAILABLE 

/SET FIELDS 

/TEST WORD TO L0CF7 



/ASSERT 9 MODE. 

/XCT» OF LAC IN L0CF7 

/SKIP IF AC N0T=(LAC 16000 

/OK. 

/ERROR. xcT* Of Lac in locf7 While 
/IN 9 Mode did nqt reference field 7. 
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.EJECT 



T141+4 



/REPEAT TEST, 
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EXM15 


04231 


000142 


04232 


004252 


04233 


10(1336 


H4234 


10(^311 


04235 


004250 


04236 


016000 


g'4237 


777776 


04240 


205310 


04241 


046001 


04242 


707764 


04243 


420101 


04244 


100223 


04245 


604234 


04246 


100604 


04247 


604244 


04250 


636001 


04251 


004244 


04252 


000143 


04253 


004274 


04254 


100513 


04255 


100336 


04256 


100311 


04257 


004272 


04260 


026000 


04261 


777776 


04262 


205311 


04263 


046001 


04264 


707764 


04265 


420102 


04266 


100223 


04267 


604256 


04270 


100604 


04271 


604266 


04272 


626001 


04273 


004266 


04274 


000144 


04275 


004316 


04276 


100517 


04277 


100336 


04300 


100311 


04301 


004314 


04302 


036000 


04303 


777776 


04304 


205312 


04305 


046001 


04306 


707764 


04307 


420103 


04310 


100223 


04311 


604300 


04312 


100604 


04313 


604310 


04314 


636001 



^9 MODE 
T142 



T142A 

Ti42e 

T142W 

/9 MOOf 
Ti43 



T143A 
T143S 

T143W 

/9 MODE 
T144 



T144A 
T144B 
T144W 



. TEST 
143 
T143 
STFN 

MOVE 
T142W 

LOCFl 

-2 

LAC 

DAC 

EBA 

XCT, 

CHA IN 

JMP 

ERROR 

JMP 

JMP« 

T142A 
. TEST 

143 

Tl44 

TF2 

STEN 

MOVE 

T143W 

L0CF2 

-2 

LAC 

DAC 

EBA 

XCT, 

CHAIN 

JMP 

ERROR 

JMP 

JMP* 

T143A 
TEST 

144 

TI45 

TF3 

STEN 

MOVE 

T144W 

L0CF3 

-2 

LAC 

DAC 

EBA 

XCT, 

CHAIN 

JMP 

ERROR 

JMP 

JMP, 



XCT» OF JMP* AT LOCFl (JUMP TO FIELD 0) 



/SET FIELDS 

/TEST WORDS TO FIELD 1 



(T142B 
LOCF0+1 

FiLOC 

T142+3 

._3 

16001 



/SET TRAP 

/POlNjER IN FIELD 

/ASSERT 9 MODE 

/XCT, OF JMP, AT LOCFl 

/REPEAT TEST 

/ERROR. JMP* 16001 AT LOCFi TOOK ITS 

''INDIRECT POINTER FROM FIeLd INSTeaD OF FlELn 1 

/TEST WORDS 



XCT* OF JMP, AT L0CF2 (JUMPs TO FIELD 0) 



/RUN IF FIELD 2 AVAILABLE 

/SET FIELDS 

/TEST WORDS TO FIELD 2 



(T143B 
LOCF0+1 

F2L0C 

T143+4 

.-3 
6001 



/SET TRAP POINTER 

/IN FIELD 

/ASSERT 9 MODE 

/XCT, OE JMP, AT L0CF2 

/REPEAT TEST 

/ERROR, JMP* 6001 AT L0CF2 TOOK ITS 

/INDIRECT POINTER FROM FIELD INSTEAD OF FIELD 2 

/TEST WORDS 



XCT* OF JMP* AT L0CF3 (JUMPS TO FIELD 0) 



/RUN IF FIELD 3 AVAILABLE 

/SET FIELDS 

/TEST WORDS TO FIELD 3 



(T144B 
LOCF0+1 

F3L0C 

T144+4 

.-3 

16001 



/SET TRAP POINTER 

/IN FIELD 

/ASSERT 9 MODE 

/XCT, OF JMP, AT L0CF3 

/REPEAT TEST 

/ERROR. JMP* 16001 AT L0CF3 TOOK ITS 

/INDIRECT POINTER FROM FIELD INSTEAD OF FIELD 3, 

/TEST WORDS 
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04315 PI04310 



04316 


000145 


04317 


004340 


04320 


100523 


04321 


100336 


0432? 


100311 


04323 


004336 


04324 


046000 


04325 


777776 


04326 


205313 


04327 


046001 


04330 


707764 


04331 


420104 


04332 


100223 


04333 


604322 


04334 


100604 


04335 


604332 


04336 


626001 


04337 


004332 


04340 


000146 


04341 


004362 


04342 


100527 


04343 


100336 


04344 


100311 


04345 


004360 


04346 


056000 


04347 


777776 


04350 


205314 


04351 


046001 


04352 


707764 


04353 


420105 


04354 


100223 


04355 


604344 


04356 


100604 


04357 


604354 


04360 


636001 


04361 


004354 


04362 


000147 


04363 


004404 


04364 


100533 


04365 


100336 


04366 


100311 


04367 


004402 


04370 


066000 


04371 


777776 


0437? 


205315 


04373 


046001 


04374 


707764 


04375 


420106 


04376 


100223 


»4377 


604366 


04400 


100604 



T144A 

/9 MODF. Test xct« of jmp« aT locf4 (jumps to field 0) 

Ti45 145 



T146 

TF4 

STFN 

MOVE 

T145W 

L0CF4 

-2 

LAC (T145B 

DAC LOCF0+1 

EBA 

XCT» F4L0C 
Ti45A CHAIN 

JMP T145+4 
Ti45B ERROR 

JMP ,-3 
T145W JMP« 6001 

T145A 
/9 MODE. TEST XCT» OF JMP» AT L0CF5 (JUMPS TO FIELD 0) 
T146 146 



/RUN IF FIFLn 4 AVAILABLE 

/SET FIELDS. 

/TEST WORDS TO FIELD 4 



/SET TRAP POINTER 

/IN FIELD ^ 

/ASSERT q MODE 

/XCTo OF Ji^P* AT L0CF4 



/REPEAT TEST 

/ERROR. JMP» 6001 AT LOCF4 TOOK ITS 

/INDIRECT POINTER FROM FIELO INSTEAD OF FIeLr 4, 

/TEST WORDS 



T147 

TF5 

STFN 

MOVE 

T146W 

L0CF5 

-2 

LAC {T1468 

DAC LOCF0+1 

EBA 

XCT, F5L0C 
T146A CHAIN 

JMP T146+4 
T146B ERROR 

JMP .-3 
T146W jMPe 16001 

T146A 
/9 MODE. T^ST XCt* OF JMP* At L0CF6 ( JUMPs tO FIELD 0) 
Ti47 147 



/RUN IF FIELD 5 AVAILABLE 

/SET FIELDS 

/TEST WORDS TO FIELO 5 



/SET TRAp POINTER 

/IN FIELD 

/ASSERT 9 MODE 

/XCT» OF JMP» AT LOCFS 



/repeat test 

/error, jmp» 16001 at l0cf5 took its 

/indirect pointer from field instead of field 5. 

/Test words 



T147A 
Tl47Q 



T150 

TF6 

STFN 

MOVE 

T147W 

L0CF6 

-2 

LAC 

DAC 

FBA 

XCT» 

CHAIN 

JMP 

ERROR 



(T147B 
LOCF0+1 

F6L0C 

T147+4 



/RUN IF FIELD 6 AVAILABLE 
/SET FIELDS 

/TEST WORDS TO FIELD 6 



/SET TRAP POINTER 

/IN FIELD 

/ASSERT 9 MODE 

/XCTfl OF JMP« AT L0CF6 

/REPEAT TEST 

/ERROR. JMP« 6001 AT L0CF6 TOOK ITS 



AGE 53 


FXM15 








fl'I'lBl 


604376 




JMP 


. -^ 


(»4402 


626001 


T147W 


JMP» 


60C^1 


?4')03 


004376 




T147A 








/9 MODF 


. TEST 


XCT* OF J 


04404 


000150 


Ti50 


15PI 




04405 


004426 




T151 




04406 


100537 




Tr7 




04407 


100336 




STFN 




04410 


100311 




MOVE 




04411 


004424 




T150W 




04412 


076000 




L0CF7 




04413 


777776 




-2 




04414 


205316 




LAC 


(T1508 


04415 


046001 




DAC 


LOCF0+1 


04416 


707764 




EBA 




04417 


420107 




XCT, 


F7L0C 


04420 


100223 


T150A 


CHAIN 




04421 


604410 




JMP 


T150+4 


04422 


100604 


Ti508 


ERROR 




04423 


604420 




JMP 


._3 


04424 


636001 


T150W 


JMP« 


16001 


04425 


004420 




T150A 
.EJECT 





/INDIRECT POINTER FROM FIELD INSTEAD OF FlELn 6, 
/TEST WORDS 

JMP« AT L0CF7 (JUMPS TO FIELH 0) 



/RUN IF FIELD 7 AVaILaPLF 

/SET FIELDS 

/TEST WORDS TO FIELD 7 



/SET TRAP POINTER 

/IN FIELD 

/ASSERT 9 MODE 

/XCT» OF JMP, AT L0CF7 

/REPEAT TEST 

/ERROR, JMP» 16001 AT L0CF7 TOOK ITS 

/INDIRECT POINTER FROM FIELD INSTeaO OF FIeLq 7, 

/TEST WORDS. 
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04426 


000151 


04427 


004443 


04430 


100336 


04431 


205236 


04432 


060101 


04433 


750000 


04434 


707764 


04435 


216000 


04436 


545236 


04437 


741000 


04440 


100604 


04441 


100223 


04442 


604431 


04443 


000152 


04444 


004466 


04445 


100336 


04446 


205236 


04447 


046000 


04450 


100311 


04451 


004463 


04452 


016000 


04453 


777775 


04454 


707764 


04455 


620101 


04456 


545236 


04457 


741000 


04460 


100604 


04461 


100223 


04462 


604446 


04463 


206000 


04464 


636002 


04465 


004456 


04466 


000153 


04467 


004512 


04470 


100517 


04471 


100336 


04472 


205236 


04473" 


060103 


04474 


100311 


04475 


004507 


04476 


026000 


04477 


777775 


04500 


707764 


04501 


620102 


04502 


545236 


04503 


741000 


04504 


100604 


04505 


100223 


04506 


604472 



/9 MODE. Test THaT OaTa in TIELD l cam be accessed directly from field 
T151 *151 



T152 
STFN 

lac 
dac« 

CLA 
EGA 
LAC 
SAD 
SKP 
ERRORa 

CHAIN 
JMP 



(-1 
FlLOC 



16000 
(-1 



T151+3 



/SET FIELDS 
/-I TO LOCFl 



/ASSERT 9 MODE 

/GET C(LOCFi) DIRECTLY 

/ACr-i? 

/YES. OK. 

/NO. ERROR. DIRECT ACCESS TQ LOcFl 

/DID NOT FETCH CORRECT DATA. 



/REPEAT TEST. 
/9 MODE. TEST THaT OaTa IN FIELD CAN BF ACCESSED DIRECTLY FROM FIELD i, 
T152 152 



Tl52A 



T152W 



T153 

STFN 

LAC 

DAC 

MOVE 

T152W 

LOCFl 

-3 

EBA 

JMP« 

SAD 

SKP 

ERRORA 



(-1 
LOCF0 



/-I TO LOCF0 

/TEST WORDS TO FIELD 1 



/REPEAT TEST 
/TEST WORDS 



/ASSERT 9 MODE. 

/GO TO FIELD 1 

/SKIP IF AC NOT 1. 

/OK. 

/ERROR. DIRECT ACCESS TO LOCF0 FROM 

/FIELD 1 FETCHED INCORRECT OaTa 
CHAIN 
JMP 
LAC 
JMP» 
T152A 
/9 MODE. TEST THaT OATa IN FIELD 3 CAN BE ACCESSED DIRECTLY FROM FIELD 2 

TI53 I53 

Ti<;4 

/RUN jF FjEtO 3 AVAilABlE 
/SEJ FIELDS 
/-I TO L0CF3 

/TEST WORDS TO FIELD 2 



FlLOC 
(-1 



T152+3 

6000 

16002 



T153A 



T154 




TF3 




STFN 




LAC 


(-1 


DAC. 


F3L0C 


MOVE 




T153W 




L0CF2 




-3 




EBA 




JMP» 


F2L0C 


SAD 


(-1 


SKP 




ERRORA 




CHAIN 




JMP 


T153* 



/ASSERT 9 MODE 

/GO TO FIELD 2 

/AC=i? 

/YES, OK. 

/NO. ERROR. DIRECT ACCESS TO LOCF3 FROM 

/FIELD 2 FETCHED INCORRECT DATA 

/REPEAT TEST. 
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04507 


216000 


04510 


626002 


04511 


004502 


0451? 


000154 


04513 


004536 


04514 


100517 


04515 


100336 


04516 


205236 


04517 


060102 


04520 


100311 


04521 


004533 


04522 


036000 


04523 


777775 


04524 


707764 


04525 


620103 


04526 


545236 


04527 


741000 


04530 


100604 


04531 


100223 


04532 


604516 


04533 


206000 


04534 


636002 


04535 


004526 


04536 


000155 


04537 


004562 


04540 


100527 


04541 


100336 


04542 


205236 


04543 


060105 


04544 


100311 


04545 


004557 


04546 


046000 


04547 


777775 


04550 


707764 


04551 


620104 


04552 


545236 


04553 


741000 


04554 


100604 


04555 


100223 


04556 


604542 


04557 


216000 


04560 


626002 


04561 


004552 


0456? 


000156 


04563 


004606 


04564 


100527 


04565 


100336 


04566 


205236 


04567 


050104 


04570 


100311 



T153W 


LAC 


16000 




JMPe 


6002 




T153A 




/9 MODE 


. tFSt 


tHat Data 


Tl54 


154 
T155 
TF3 
STFN 






LAC 


(-1 




OAC« 


F2L0C 




MOVE 






T154W 






L0CF3 






-3 






EBA 






JMP» 


F3L0C 


T154A 


SAD 
SKP 
ERRORa 

CHAIN 


(-1 




JMP 


T154+4 


T154W 


LAC 


6000 




JMP« 


16002 




T154A 




/9 MODE 


. TEST 


THAT DaTa 


T155 


155 
T156 
TF5 
STFN 






LAC 


(-1 




DAC« 


F5L0C 




MOVE 






T155W 






L0CF4 






-3 






EBA 






JMP« 


F4L0C 


T155A 


SAO 
SKP 
ERRORA 

CHAIN 


(-1 




JMP 


T155+4 


T155W 


LAC 


16000 




JMP« 


6002 




T155A 




/9 MODE 


. TEST 


THaT OaTa 


T156 


156 
T157 
TF5 
STFN 






LAC 


(-1 




OAC» 


F4LOC 




MOVE 





/TEST WOrDS- 



IN FIELD 2 CAN BF ACCESSED DIRECtLY FROM FIELD 3 



/RUN IF FIELD 3 AVAILABLE 
/SET FIELDS 
/-I TO L0CF2 

/TEST WORDS TO FIELD 3 



/ASSERT 9 HODE 

/GO TO FIELD 3 

/AC=-i? 

/YES. OK. 

/NO. ERROR, DIRECT ACCESS To LOCF2 FROM 

/FIELD 3 FETCHED INCORRECT DaTa 

/REPEAT TEST. 
/TEsT WORDS. 



IN FIELD 5 CAN BF ACCESSED DIRECTLY FROM FIELD 4. 



/RUN IF FIELD 5 AVAILABLE 
/SET FIELDS 
/-I TO L0CF5 

/TEST WORDS TO FIELD 4 



/ASSERT 9 MODE 

/GO TO FIELD 4 

/AC=-i? 

/YES. OK. 

/NO. ERROR. DIRECT ACCESS TO L0CF5 FROM 

/FIELD 4 FETCHED INCORRECT DATA. 

/REPEAT TEST. 
/TEsT WORDS. 



IN FIELD 4 CAN BE DIRECTLY ACCESSED FROM FIELD 5 



/RUN iF FiElD 5 AVAILABLE 

/sEt fields 

/-I TO LOCF4 

/TEST WORDS TO FIELD 5 
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04571 


004603 




T156W 




0457? 


056000 




L0CF5 




04573 


777775 




-3 




04574 


707764 




EBA 




04575 


620105 




JMP» 


F5L0C 


04'576 


545236 


Ti56A 


SAO 


(-1 


04577 


741000 




SKP 




04600 


100604 




errora 




04601 


100223 




CHAIN 




04602 


604566 




JMP 


T156+4 


04603 


206000 


T156W 


LAC 


6000 


04604 


636002 




JMP» 


16002 


04605 


004576 




T156A 








/9 MODE 


TEST 


THaT oaTa 


04606 


000157 


T157 


*157 




04607 


004632 




Tl60 




04610 


100537 




TF7 




04611 


100336 




STFN 




04612 


205236 




LAC 


(-1 


04613 


060107 




DAC* 


F7L0C 


04614 


100311 




MOVE 




04615 


004627 




T157W 




04616 


066000 




L0CF6 




04617 


777775 




-3 




04620 


707764 




EBA 




04621 


620106 




JMP« 


F6L0C 


04622 


545236 


T157A 


SAO 


(-1 


04623 


741000 




SKP 




04624 


100604 




ERRORa 




04625 


100223 




CHAIN 




04626 


604612 




JMP 


T157+4 


04627 


216000 


T157W 


LAC 


16000 


04630 


626002 




JMP» 


6002 


04631 


004622 




T157A 








/9 MODE 


. Test 


THAT OaTa 


04632 


000160 


T160 


160 




04633 


004656 




T161 




04634 


100537 




TF7 




04635 


100336 




STFN 




04636 


205236 




LAC 


(-1 


04637 


060106 




DAC« 


F6L0C 


04640 


100311 




MOVE 




04641 


004653 




T160W 




04642 


076000 




L0CF7 




04643 


777775 




-3 




04644 


707764 




EBA 




04645 


620107 




JMP« 


F7L0r 


04646 


545236 


T160A 


SAO 


(-1 


04647 


741000 




SKP 




04650 


100604 




ERRORA 




04651 


100223 




CHAIN 




04652 


604636 




JMP 


T160+4 



/ASSERT 9 MODE 

/GO TO FIELD 5 

/AC=-17 

/YES OK 

/NO. 'error, direct ACCESS TO LOCF4 FROM 

/FIELD 5 FETCHED INCORRECT OaTa. 

/REPEAT TEST. 
/TEST WORDS 



IN FIELD 7 CAN 8F ACCESSED DIRECTLY FROM FIELD 6 



/RUN IF FIELD 7 AVAILABLE 
/SET FIELDS 
/-I TO L0CF7 

/TEST WORDS TO FIELD 6 



/ASSERT 9 MODE 

/GO TO FIELD 6 

/AC=-l? 

/YES. OK. 

/NO ERROR. DIRECT ACCESS TO L0cF7 FROM 

/FiElD 6 FETCHED INCORRECT DATA. 

/REPEAT TEST. 
/TEST WORDS 



IN FIELD 6 CAN BE ACCESSED DIRECTLY FROM FIELD 7. 



/RUN iF FjElD 7 AVAILABLE 

/sEt fields 

/-I TO L0CF6 

/TEST WORDS TO FIELD 7 



/ASSERT 9 MODE 

/GO TO FIELD 7 

/AC=-l? 

/YES. OK. 

/NO. ERROR. DIRECT ACCESS TO L0CF6 FROM 

/FIELD 7 FETCHED INCORRECT DATA. 



/REPEAT TEST 
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04653 
(^4651 
04655 



2060H0 
63600? 
004646 



T160W 



LAC 
JMP» 
T160A 
.EJECT 



6000 
16002 



/TEST WORDS 
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/OPTIONAL API TEST 



04656 


?00161 


514657 


004715 


(1466C" 


100543 


04661 


100376 


34662 


100311 


04663 


004707 


(^4664 


016000 


0466? 


777772 


04666 


205317 


04667 


040040 


04670 


144673 


04671 


205320 


0467? 


620101 


04673 


000000 


04674 


204673 


0467S 


505215 


04676 


545233 


04677 


741000 


04700 


100604 


04701 


703304 


04702 


703302 


04703 


100223 


04704 


604662 


04705 


100604 


04706 


604701 


04707 


705504 


04710 


740000 


04711 


740000 


04712 


740000 


04713 


626005 


04714 


004705 


047I5 


000162 


04716 


004755 


04717 


100543 


04720 


100513 


04721 


100336 


04722 


100311 


04723 


004747 


04724 


026000 


04725 


777772 


04726 


205321 


04727 


040040 


04730 


144733 


04731 


205320 


04732 


62?'lP'2 


04733 


000000 


04734 


204733 


04735 


505215 


04736 


545230 


04737 


74I000 



/ 

/TEST 
T161 



ATt^A 



AT0B 
AT0W 



/TEST 
Tl62 



AT^A 



THaT aPI 
161 
T162 
CKAPl 

stfn 

MOVE 

AT!-"W 

LOCEl 

-6 

tAC 

DAC 

OgM 

LAC 

JMP« 



LAC 

ANn 

SAn 

SKP 

errqra 

OBK 

CAF 

CHAIN 

JHP 

ERROR 

JMP 

Is* 

NOP 
NOP 
NOP 
JMP» 
AT0B 
THAT aP! 

162 

T163 

CkAPi 

TF2 

STEN 

MOVE 

ATlW 

L0Cr2 

-6 

L.AC 

DAC 

0?M 

LAC 

JMPo 



LAC 

AND 

SAO 

SKP 



CAN gPEAK FROM FIFLn \ aNO STORES PC 3-5 rORRFCTLY 



/RUN [F API 
/SET FIELDS 
/TEST WORDS 



AVAILABLE 
TO FIELD 1 



(JmS AT0A 

L4C 

AT. /'A 

( K404K 

FiLOC 

aTsia 

(K70K 

(K10K 



/Break hanOlEr to L0f^4!^ 



/GET API BREAK 
/GO TO FIELD 1 



REQUEST DATA 



TI6I+4 



/GET JMS INFO 
/ROTATE AC 3-5 

/AC3-5 = 0PI1? 

/YES. 

/NO. ERROR. PC7-5 INCORRECTLY 

/STORED. 



/REPEAT TEST 

/API FAILED TO BREAK 



/TEST Words 



6005 



CAN BREAK FROM FIELD 2 AND STORES PC 3-5 CORRECTLY, 



(JmS ATIA 
L40 

aTi A 
(K404K 

F2L-1C 

ATlA 
('<7 0K 
(KjaK 



/RUN jF API AVAILABLE 
/RtjN IF FIELD 2 AyAILABLE 
/SET FIELDS 
/TEST WORDS TD FIELD 2 



/BREAK HAnOlER TO LOC40 



/2ERO ATiA 
/GET API BREAK 
/GO TO FIELD 2 

/GET JMS INFO 
/ISOLATE AC 3-5 
/AC3-5=010? 
/YES. 



REQUEST DATA. 
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f)'»740 


50060'' 


PI4741 


703304 


0474? 


703302 


04 7 4 3 


100223 


04744 


604722 


04745 


100604 


ei4746 


604741 


04747 


705504 


0475f^ 


740000 


04751 


740000 


0475? 


740000 


04753 


626005 


04754 


004745 


04755 


000163 


04756 


005015 


04757 


100543 


04760 


100517 


04761 


100336 


04762 


100311 


04763 


005007 


04764 


036000 


04765 


777772 


04766 


205322 


04767 


040040 


04770 


144773 


04771 


205320 


04772 


620103 


04773 


000000 


04774 


204773 


04775 


505215 


04776 


545226 


04777 


741000 


05000 


100604 


05001 


703304 


05002 


703302 


05003 


100223 


05004 


604762 


05005 


100604 


05006 


605001 


05007 


705504 


05010 


740000 


05011 


740000 


05012 


740000 


05013 


626005 


05014 


005005 


050I5 


000164 


05016 


005055 


05017 


100543 


05020 


100523 


05021 


100336 


05022 


100311 


05023 


005047 


05024 


046000 



aTiB 
ATlW 



Tl62*5 



-^ 



60('5 



FRRORa 

OBx 

CAT 

CHAlfyJ 

JMP 

ERROR 

JMP 

ISA 

NOP 

NOP 

NOP 

JMP« 

AT18 

/Test thaT api can bREs"; from 

Tl63 163 

Tl64 

CKaPI 

TF3 

STFN 

MOVE 

AT?W 

L0CF3 

-6 

(_AC 

OAC 

DZM 

LAC 

JMP» 
AT2A 

LAC 

AND 

SAO 

SKP 

ERRORa 

DBk 

CAF 

CHAIN 

JMP 
AT2B ERROR 

JMP 
AT?W ISA 

NOP 

NOP 

NOP 

JMPo 

AT2B 
/TEST THAT API 



(JmS AT2A 

L40 

AT2A 

(K404K 

F3L0C 

AT2A 

{K70K 

(K30K 



T163+5 



/NO. ERROR. PC 3-5 WcQ^'^LT'^t^ STORED, 



/REPEAT TEST 

/AP[ FAILED TO BREAK 



/TEST WORDS 



FIELD 3 AND STORES P- 3-s fORREcTLY, 



/RUN IF API AVAILABLE 
/RUN IF FIELD 3 AVAILABLE 
/SET FIELDS 
/TEST WORDS TO FIELD 3 



/Break hanDlEr to loC40 

/?ERO AT2A 

/GET API BREAK REQUEST DATA 

/GO TO FIELD 3 

/GET JMS INFO 

/ISOLATE AC 3-5 

/AC3-5=011? 

/YES. 

/NO. ERROR. PC3-5 INCORRECTLY STORED- 



/REPEAT TEST. 

/API FAILED TO BREAK 

/TEST WORDS 



T164 



164 

T165 

CkAPi 

TF4 

STrN 

MOVE 

AT3W 

L0CF4 



60ti5 
CAN BREAK FROM FIELD 4 AND STORES PC 3-5 CORRECTLY 



/run it api available 
/Run if field 4 available 

/SET fields 

/TEST WORDS TO FIELD 4 



AGE 60 


EXM15 








^»5PI25 


777772 




-6 




H5C126 


205323 




i_ac 


(Jms Ar3A 


05^27 


H40040 




OAC 


LA'^ 


?i503i^ 


145033 




n^M 


at.-^a 


05C131 


205320 




LAC 


( Kd04K 


05?I3? 


620104 




JMPo 


F4LOC 


!^5033 


000000 


AT3A 


f 




c;5034 


205033 




LAC 


AT3A 


0503? 


505215 




ANT 


(K70K 


05036 


545261 




SAO 


(K40K 


«5037 


74I000 




SKP 




0504? 


100604 




ER^Of A 




05041 


703304 




DBk 




0504? 


703302 




CAP 




05043 


100223 




CH4IN 




05044 


605022 




JMP 


T164+5 


05045 


100604 


aT^b 


ERROR 




05046 


605041 




JMP 


.-5 


05047 


705504 


AT3W 


ISA 




05050 


740000 




NOP 




05051 


740000 




NOP 




05052 


740000 




NOP 




05053 


626005 




JHP« 


6005 


05054 


005045 




AT36 








/TEST 


THAT API 


BREAK FROM 


05055 


000165 


T165 


165 




05056 


005115 




TI66 




05057 


100543 




ckapi 




05060 


100527 




TEis 




05061 


100336 




STFN 




05062 


100311 




MOVE 




05063 


005107 




AT4W 




05064 


056000 




L0CF5 




05065 


777772 




-6 




05066 


205324 




lac 


(JmS AT4A 


05067 


040040 




OAC 


L40 


05070 


145073 




DgM 


AT4A 


05071 


205320 




LAC 


(K404K 


0507? 


620105 




JMP» 


F5LOC 


05073 


000000 


AT4A 







05074 


205073 




LAC 


AT4A 


05075 


505215 




ANO 


(K70K 


05076 


545224 




SAO 


(K^aK 


05077 


74I000 




SKP 




05100 


100604 




ERRORa 




05101 


703304 




DBk 




05102 


703302 




CAF 




05103 


100223 




CHAIN 




05104 


605062 




JMP 


T165+5 


05105 


100604 


AT4B 


ERROR 




05106 


605101 




JMP 


.-5 


05107 


705504 


AT4W 


ISA 




05110 


740000 




NOP 




05111 


740000 




NOP 




05112 


740000 




NOP 





/BREAK HAnOlFrS to loC40 

/^ERO AT?!A 

/GET API BREAK REQUEST oaTa. 

/GO TO FIELD 4 

/GET JMS INFO 
/ISOLATE AC S-'^ 
/AC3-5 = iPIH? 
/YES. 

/NO- ERROR. PC 3-5 INcCRRECTlY STORED 



/REPEAT TEST 

/API FAILEO TO BREAK 

/TEST WORDS 



REAK FROM FIELD 5 STORES PC 3-5 CORRECTLY, 



/RUN IF API AVAILABLE 
/RUN IF FIELD 5 AVAILABLE 
/SET FIELDS 
/TEST WORDS TO FIELD 5 



/BREAK HAnDlER Tq LOC40 

/gERO AT4A 

/GET API BREAK REQUEST DATA 

/GO TO FIELD 5 

/GET JMS INFO 
/ISOLATE AC 3-5 
/AC3-5=101? 
/YES. 

/NO. ERROR. Pc3-5 INCORRECTLY STORED 



/REPEAT TEST. 

/API FAILED TO BREAK 

/TEST WORDS 



PAGE <'l 



E^M1 5 



■^5X1^ 


62600'5 


i^5\\l 


PtHSil^5 


!^5tl5 


(^ ? 1 6 6 


(^5X1^ 


PlUSl'^S 


PI5117 


1 9P5^3 


05t2C» 


10C5?3 


?i5t2l 


10P1336 


0512? 


10031 1 


05123 


00S147 


05124 


P 6 1'- ? 


05125 


77777? 


05126 


?PI'^Z?5 


05127 


04PI040 


05130 


145133 


05131 


205320 


05132 


620106 


05133 


000000 


05134 


205133 


05135 


5052J5 


05136 


545222 


05137 


741000 


05140 


100604 


05141 


703304 


05142 


703302 


05143 


100223 


05144 


605122 


05145 


100604 


05146 


605141 


05147 


705504 


05150 


740000 


05151 


740000 


05152 


740000 


05153 


626005 


05154 


005145 


05155 


000167 


05156 


777777 


05157 


100543 


05160 


100537 


05161 


100336 


05162 


100311 


05163 


005207 


05164 


076000 


05165 


777772 


05166 


205326 


05167 


040040 


05170 


145173 


05171 


205320 


05172 


620107 


05173 


000000 


05174 


205173 


05175 


505215 


05176 


545215 


05I77 


74I000 



4T4B 
/TfST ThaT 4P! 

T 1 6 6 16 6 
T167 
CKaPI 
TF', 
STFN 
MOVE 
ATSW 

loc:F6 

-6 

lac 

DAC 
DZM 
LAf 
JMPo 
AT^A 

LAC 
ANn 

SAD 
SKP 

ERRORa 

08k 

CAT 

CHAIN 

JMP 

AT5B ERROR 
JMP 

AT5W ISA 
NOP 
NOP 
NOP 
JMP» 
AT^B 

/Test that api 

Tl67 167 

777777 

CKAPI 

TF7 

STFN 

MOVE 

AT6W 

L0CF7 

-6 

LAC 

DAC 

Oi» 

LAC 

JMP» 



LAC 

ANn 

SAO 

SKP 



60t*5 
C4'J ^iPEaK F'^QM FIELD 6 ANn SToRfS PC3-- cn^fEcTLY 



/RUN IF API aVaILARLF 
/RUN IF FIFLn 6 AVilLARLF 
/SET FIELDS 
/TEST WORD"^ TO FIELD 6 



(JmS AT5A 

LAP 

ATSA 

(K404K 

F6L0C 

AT5A 

(K70K 

<K60K 



TI66+5 
.-5 



/Break handler to loC4pi 

/iF.RO AT15A 

/GET API BREAK REQUEST OATA. 

/GO TO FIELD 6 

/GET JMS INFO 
/ISOLATE AC3-5 

''AC3-5= 10? 

/YES. 

/NO. ERROR. PC 3-5 INCORRECTLY STORED' 



/REPEAT TEST 

/API FAILED TO BREAK 

/TEST WORDS 



AT6A 



6005 
CAN 8REAK FROM FIELD 7 AND STORES PC3-5 CORRECTLY, 



/RUN lE API AVAILABLE 
/Run if FIELD 7 AVAILABLE 
/SET FIELDS 
/TEST WORDS TO FIELD 7 



(JmS AT6A /BREAK HAnOlFR TO LOC40 

L40 

AT6A /2ERO AT6A 

fK404K /GET API BREAK REQUEST QATA 

F7L0C /GO TO FIELD 7 

AT6A /GET JMS INFO 

(K70K /ISOLATE AC 3-5 

<K70K /AC3-5= 11? 
/YES. 
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EXM15 






0520(, 


10060'' 




errora 


05201 


703304 




OBK 


0520? 


70330? 




CAf 


05203 


10PI223 




CHAIN 


05204 


605162 




JMP 


P5205 


10«6P!4 


aT6B 


error 


05206 


605201 




JMP 


05207 


705504 


AT6W 


ISA 


05210 


740000 




NOP 


05211 


740000 




NOP 


05212 


740000 




NOP 


05213 


626005 




JMP» 


05214 


00S205 




AT6B 




100604 


FRROfi 


l=JMS ERR 




100604 


ERRORA=JMS ERR 




600240 


SKIP = 


:JMP CHAINA 




100223 


CHAI^ 


l=JMS CHAINN 




000000 




.END 




05215 


070000 


»L 




05216 


600616 


• L 




05217 


000001 


»L 




05220 


000207 


• L 




05221 


0000t>7 


»L 




05222 


060000 


«L 




05223 


000006 


«L 




05224 


050000 


• L 




05225 


000005 


• L 




05226 


030000 


• L 




05227 


000004 


• L 




05230 


020000 


• L 




05231 


000003 


♦ L 




05232 


000002 


• L 




05233 


010000 


• L 




05234 


004000 


»L 




05235 


377777 


«L 




05236 


777777 


• L 




05237 


000077 


• L 




05240 


000045 


»L 




05241 


000043 


«L 




05242 


777740 


»L 




05243 


000100 


♦ L 




05244 


000240 


•L 




05245 


000700 


»L 




05246 


606060 


»L 




05247 


?06000 


»L 




05250 


006000 


»L 




05251 


226001 


• L 




05252 


002152 


«L 




0525 3 


002173 


«L 




05254 


002214 


• L 




05255 


002235 


»L 




05256 


002256 


»L 




05257 


002277 


»L 




05260 


002320 


»L 




05261 


040000 


• L 



T167+5 



/NO. ERROR. PC^-5 INCQPR'^CTLY STORED 



/REPEAT TEST. 

/API FAILED TO BREAK 

/TEST WORDS 



6005 



PAGE 63 EXH15 



05PA? 


00320'i 


*»L 




H5?63 


0«32?6 


»t. 




05?64 


Pit^32'5i?' 


•I 




Qi5?65 


0153272 


•L 




05266 


00331 4 


»L 




05?67 


003336 


»t 




05?70 


003360 


»L 




PI5271 


603405 


•L 




05272 


603430 


»L 




05273 


6034R3 


»L 




05274 


603476 


«L 




05275 


603521 


»L 




05276 


603544 


»L 




05277 


603567 


•L 




0530i?i 


603607 


•L 




05301 


603642 


• L 




05302 


603675 


• L 




05303 


603730 


•L 




05304 


603763 


*L 




05305 


604016 


•L 




05306 


604051 


»L 




05307 


216000 


•L 




0531PI 


004246 


•L 




05311 


004270 


•L 




05312 


004312 


• L 




05313 


004334 


•L 




05314 


004356 


• L 




05315 


004400 


•L 




05316 


004422 


»L 




05317 


104673 


»L 




05320 


404000 


♦ L 




05321 


104733 


• L 




05322 


104773 


»L 




05323 


105033 


• L 




05324 


105073 


»L 




05325 


105133 


•L 




05326 


105173 


•L 




siz 


E=05327 


NO ERROR LINES 
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EXI 


AACA 


01040 


ALOC 


01033 


ARTN 


01045 


ASCT 


01015 


AT0A 


04673 


AT0B 


04705 


AT0W 


04707 


ATIA 


04733 


ATIB 


04745 


ATIW 


04747 


AT2A 


04773 


AT2B 


05005 


AT2W 


05007 


AT3A 


05033 


AT3B 


05045 


AT3W 


05047 


AT4A 


05073 


AT4B 


051«'5 


AT4W 


05107 


AT5A 


05133 


AT5B 


05145 


AT5W 


05147 


AT6A 


05173 


AT6B 


05205 


AT6W 


05207 


CALERR 


00616 


CALMSG 


01025 


CAPI 


00543 


CEHLT 


00601 


CEMSG 


01031 


CETYP 


00627 


cr2 


00513 


CF3 


00517 


CF4 


00523 


CF5 


00527 


0^6 


00533 


CF7 


00537 


CHA!N 


100223 


CHAINA 


00240 


CHAINN 


00223 


CHLT 


00576 


CKAPI 


100543 


CLOF 


700004 


CLON 


700044 


CLSF 


700001 


CLX 


735000 


CNV 


00767 


CSCOP 


00651 


CTRA 


00153 


CTR8 


00154 


CURTST 


00151 


ni 


01016 


02 


01017 


03 


01020 


EAC 


00155 



PAGI 1 


55 E 


FBA 


707764 


FEM 


707702 


ELOC 


00156 


EPA 


707762 


ERR 


00604 


errmsg 


01021 


ERROR 


100604 


ERRORA 


100604 


EXBA 


707761 


EAODR 


00333 


FLAG 


00746 


FORWO 


00254 


F0LOC 


00100 


■F0L0 


00117 


F0L10 


00127 


F0L20 


00137 


FlLOC 


00101 


F1L0 


00120 


FlLl 


00110 


F1L10 


00130 


F1L20 


00140 


F2L0C 


00102 


F2L0 


00121 


F2L1 


00111 


F2L10 


00131 


F2L20 


00141 


F3L0C 


00103 


F3L0 


00122 


F3L1 


00112 


F3L10 


00132 


F3L20 


00142 


F4L0C 


00104 


F4L0 


00123 


F4L1 


00113 


F4L10 


00133 


F4L20 


00143 


F5L0C 


00105 


F5L0 


00124 


F5L1 


00114 


r5Li0 


00134 


F5L20 


00144 


F6L0C 


00106 


F6L0 


00125 


F6L1 


00115 


F6L10 


00135 


F6L20 


00145 


F7L0C 


00107 


F7L0 


00126 


F7L1 


00116 


F7L10 


00136 


F7L20 


00146 


GETROy 


00213 


KRB 


700312 


KSF 


700301 


KSTART 


00147 



EXM15 



PACE 66 EXH15 



K10K 


010000 


K20K 


020000 


K30K 


030000 


K40K 


040000 


K404X 


404000 


K50K 


050000 


K60K 


060000 


K70K 


070000 


LEM 


707704 


LOG 


006000 


LOCF0 


006000 


LOCFl 


016000 


L0CF2 


026000 


L0CF3 


036000 


L0CF4 


046000 


L0CF5 


056000 


L0CF6 


066000 


L0CF7 


076000 


L0 


000000 


L0F0 


000000 


L0F1 


010000 


L0F2 


020000 


L0F3 


020000 


L0F4 


030000 


L0F5 


050000 


L0F6 


060000 


L0F7 


070000 


LI 


000001 


LlFl 


010001 


L1F2 


020001 


L1F3 


030001 


L1F4 


040001 


L1F5 


050001 


L1F6 


060001 


LlF7 


070001 


L10 


000010 


L10F0 


000010 


L10F1 


010010 


L10F2 


020010 


L10F3 


030010 


L10F4 


040010 


H0F5 


050010 


L10F6 


060010 


H0F7 


070010 


L20 


000020 


L20F0 


000020 


L20F1 


010020 


L20F2 


020020 


L20F3 


030020 


L20F4 


040020 


L20F5 


050020 


L20F6 


060020 


L20F7 


070020 


U40 


000040 


L40F0 


000040 



Page ^7 EXM15 

L40F1 P!10040 

L40r? ("20040 

L40r,-^ 030040 

L40F4 040040 

L40r5 050040 

L40F6 060040 

L40F7 070040 

MCTR 00335 

MEMERR 01050 

MOVE 100311 

MOVEA 00323 

MOVVE 00311 

NXTST 00150 

OCNV 00751 

PCF 700202 

PRINT 00727 

PRINTa 00740 

PRINTB 00742 

PRINTC 00744 

PSA 700204 

PSB 700244 

PSF 700201 

P0MSG 01101 

RCF 700102 

RRI? 700112 

RSA 700104 

RSB 700144 

RSF 700101 

RTNNO 00177 

SASC 01014 

SBFNUM 00336 

SETA 100301 

SETLOC 100270 

SKIP 600240 

START 00203 

STCTA 00301 

STCTR 00270 

STFLG 00557 

STFN 100336 

STFl 00426 

STF2 00417 

STF3 00410 

STF4 00401 

STF5 00372 

STF6 00363 

STF7 00354 

SWA 742030 

TADDR 00334 

TCF 700402 

TEMP 00152 

TEMQ 00747 

TEMR 00750 

TF2 100513 

TF3 100517 

TF4 100523 



PAGE 


68 £ 


TF5 


1^2527 


TF6 


100533 


TF7 


100537 


TLS 


7004?6 


TSCl 


00664 


TSC2 


00703 


TSr 


700401 


TSTFX 


00501 


TSTF? 


00443 


TSTFS 


00450 


TSTF4 


00455 


TSTF5 


00462 


TSTF6 


00467 


TSTF7 


00474 


TTOUT 


00567 


TYP 


00657 


typat 


00714 


TYPE 


100657 


TYPSP 


00720 


T0 


01162 


Tl 


01173 


T10 


01303 


T100 


03003 


T100A 


03014 


T100W 


03022 


T101 


03027 


T101A 


03040 


T101W 


03046 


T102 


03053 


T102A 


03064 


T102W 


03072 


T103 


03077 


T103A 


03110 


T103W 


03116 


T104 


03123 


T104A 


03134 


T104W 


03142 


T105 


03147 


T105A 


03160 


T105W 


03166 


T106 


03173 


T106A 


03204 


T107 


03214 


T107A 


03226 


Til 


01320 


T110 


03236 


T110A 


03250 


Till 


03260 


TlllA 


03272 


T112 


03302 


T112A 


03314 


T113 


03324 


T113A 


03336 


T114 


03346 


T114A 


03360 



£XM15 



PAGE 69 EXMl^ 



T115 


03370 


T115A 


03404 


T115P 


03405 


T115W 


03407 


T116 


03412 


T116A 


03427 


T116B 


03430 


T116W 


03432 


T117 


03435 


T117A 


034«;2 


T117B 


03453 


T117W 


03455 


T12 


01335 


T120 


03460 


T120A 


03475 


T120B 


03476 


T120W 


03500 


T121 


0J503 


T121A 


03f20 


T121B 


03521 


T121W 


03523 


T122 


03526 


T122A 


03543 


T122B 


03544 


T122M 


03546 


T123 


03551 


T123A 


03566 


T123B 


03567 


T12'3W 


03571 


T124 


03574 


T124A 


03607 


T124B 


03616 


T124W 


03620 


T125 


03626 


T125A 


03642 


T125B 


03651 


T125W 


03653 


T126 


eF3661 


T126A 


03675 


T1268 


03704 


T126W 


03706 


T127 


03714 


T127A 


03730 


T127B 


03737 


T127W 


03741 


T13 


01352 


T130 


03747 


T130A 


03763 


T1308 


03772 


T130W 


03774 


T131 


04002 


T131A 


04^16 


T131B 


04025 


T131W 


04027 


T132 


04035 



PAbTT 


70 E 


T132A 


04051 


T132B 


04060 


T132W 


04062 


T133 


04070 


T134 


04105 


T135 


04123 


T136 


04141 


T137 


04157 


Tl4 


01367 


T140 


04175 


T141 


04213 


T142 


04231 


T142A 


04244 


T142B 


04246 


T142W 


04250 


T143 


04252 


T143A 


04266 


T143B 


04270 


T143W 


04272 


T144 


04274 


T144A 


04310 


T144B 


04312 


T144W 


04314 


T145 


04316 


T145A 


04332 


T145B 


04334 


T145W 


04336 


T146 


04340 


T146A 


04354 


T146B 


04356 


T146W 


04360 


T147 


04362 


T147A 


04376 


T147B 


04400 


T147W 


04402 


T15 


01404 


T150 


04404 


T150A 


04420 


T150B 


04422 


T150H 


04424 


T151 


04426 


T152 


04443 


T152A 


04456 


T152W 


04463 


T153 


04466 


T153A 


04502 


T153W 


04507 


T154 


04512 


T154A 


04526 


T154W 


04533 


T155 


04536 


T155A 


04552 


T155W 


04557 


T156 


04562 


T156A. 


04576 



EXM15 



OAGt 



E V M 1 5 



■^156" 


«a46P3 


T157 


(^46t?i6 


T157A 


04622 


TiSTw 


P)46?7 


■^16 


01421 


T16A 


01431 


Ti6B 


01433 


TlfrW 


01435 


T160 


04632 


Tlft0A 


04646 


Tl60W 


04653 


T161 


04656 


T162 


04715 


T163 


04755 


Tl64 


05015 


T165 


06055 


T166 


05115 


T167 


051-55 


Tl7 


0144 


T17A 


01451 


T17B 


01453 


T17W 


01455 


T2 


01205 


Tge 


01460 


T2!ilA 


01471 


T20B 


01473 


T2!«W 


01475 


T21 


015^00 


T21A 


01511 


T21B 


01513 


T21W 


01515 


T22 


01520 


T22A 


01531 


T22B 


01533 


T22H 


01535 


T23 


01540 


T23A 


01551 


T23B 


01553 


T2*W 


015^5-5 


T24 


01560 


T24A 


01571 


T24B 


01573 


T24W 


01575 


T25 


01600 


T26 


01614 


T27 


01631 


T3 


01217 


T30 


01646 


T31 


01663 


T32 


01700 


T33 


01715 


T34 


01732 


T34W 


01752 


T35 


01754 


T35M 


01775 
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T36 


01777 


T36W 


0?0?0 


T37 


0?0?2 


T37W 


02043 


T4 


01231 


T40 


02045 


T4^W 


02066 


T41 


02070 


T41W 


02111 


T43 


02113 


T4?W 


02134 


T43 


02136 


T43A 


02150 


T43B 


02152 


T43W 


02154 


T44 


02156 


T44A 


02171 


T44B 


02173 


T44W 


02175 


T45 


02177 


T45A 


02212 


T45B 


02214 


T45W 


02216 


T46 


02220 


T46A 


02233 


T46B 


02235 


T46W 


02237 


T47 


02241 


T47A 


02254 


T47B 


02256 


T47W 


02260 


T5 


01243 


T50 


02262 


T50A 


02275 


T50B 


02277 


T50W 


02301 


T51 


02303 


T51A 


02316 


T51B 


02320 


T51W 


02322 


T52 


02324 


T52A 


02334 


T52W 


02336 


T53 


02340 


T53A 


02351 


T53W 


02353 


T54 


02355 


T54A 


02366 


T54W 


02370 


T55 


02372 


T55A 


02403 


T55W 


024R5 


T56 


02407 


T56A 


02420 


T56W 


02422 
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T57 


0?4?4 


T57A 


Pi?435 


T57.W 


0?437 


T6 


012B5 


T6I?! 


0?441 


T6KA 


0?452 


T6f)W 


0?454 


T61 


02456 


T61A 


02466 


T61'W 


02470 


T62 


02473 


T6?A 


025R4 


T6?W 


02506 


T63 


02511 


T63A 


02522 


T63W 


02524 


TA4 


02527 


T64A 


02-540 


T64W 


02942 


T65 


02545 


T65A 


02556 


T65W 


02560 


T66 


02563 


T66A 


02574 


T66W 


02576 


T67 


02601 


T67A 


02612 


T67.W 


02614 


T7 


01267 


T70 


02617 


T70A 


02627 


T70W 


02631 


T71 


02634 


T71A 


02645 


T71W 


02647 


T72 


02652 


T7?A 


02663 


T7?W 


02665 


T73 


02670 


T.73A 


0270,1 


T73W 


02703 


T74 


02706 


T74A 


02717 


T74W 


02721 


T75 


02724 


T75A 


02735 


T75W 


02737 


T76 


02742 


T76A 


02753 


T76W 


02755 


T77 


02760 


T77A 


02770 


T77W 


02776 


WASC 


01013 


.EOT 


00000 
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L0 

LC?F0 

.EOT 

Ll 

Ll« 

L20F0 
L4P1 

L40r0 

F0LOC 
FiLOC 
r2L0C 
F3L0C 

r4L0C 

F5L0C 

F6L0C 

F7L0C 

FlLl 

F2L1 

F3L1 

F4L1 

F5L1 

F6L1 

F7L1 

F0L0 

F1L0 

F2L0 

F3L0 

F4L0 

F5L0 

F6L0 

F7L0 

F0L10 

F1L10 

F2L10 

F3L10 

F4L1B 

F5H0 

F6L10 

F7L10 

F0L20 

F1L20 

F2L20 

F3L20 

F4L20 

F5L20 

F6L20 

F7L20 

KSTaRT 

NXTST 

rUPTST 

TEMP 

CTRA 

CTRB 



000000 

00(^000 

00000 

(100001 

000010 

000010 

0000?0 

000020 
000040 
000040 
00100 
00101 
00102 
00103 
00104 
00105 
00106 
00107 
00110 
00111 
00112 
00113 
00114 
00115 
00116 
00117 
00120 
00121 
00122 
00123 
00124 
00125 
00126 
00127 
00130 
00131 
00132 
00133 
00134 
00135 
00136 
00137 
00140 
00141 
00142 
00143 
00144 
00145 
00146 
00147 
00150 
00151 
00152 
00153 
00154 



PAGE 75 


EX 


FAC 


00155 


ELOC 


(10156 


RTMNO 


051177 


START 


002C?3 


GETROY 


H0213 


CHAINN 


H0223 


CHAINA 


00240 


FORwO 


00254 


STCTR 


00270 


STCTA 


00301 


MOVVE 


00311 


MOVEA 


00323 


FADOR 


00333 


TADDR 


00334 


MCTR 


00335 


SBFNUM 


00336 


STF7 


00354 


STF6 


0B'3«3 


STF5 


00372 


STF4 


00401 


STF3 


00410 


STF2 


00417 


STFl 


00426 


TSTF2 


00443 


TSTF3 


00450 


TSTF4 


00455 


TSTF5 


00462 


TSTF6 


00467 


TSTF7 


00474 


TSTFX 


005fll 


CF2 


00513 


CF3 


00517 


CF4 


00523 


CF5 


00527 


CF6 


00533 


CF7 


00537 


CAPI 


00543 


STFLG 


00557 


TTOUT 


00567 


CHIT 


00576 


GEHLT 


006fll 


FRR 


00604 


CALERR 


00616 


CETYP 


00627 


CSCOP 


00651 


TYP 


00657 


TSCl 


00664 


TSC2 


00703 


TYPAT 


00714 


TYPSP 


00720 


PRINT 


00727 


PRINTA 


00740 


PRINTB 


00742 


PRIMTC 


00744 


FLAG 


00746 
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E 


tEmq 


00747 


TEMR 


00750 


OCNV 


00751 


CNV 


00767 


WASC 


01013 


SASC 


01014 


ASCT 


01015 


in 


01016 


02 


01017 


03 


01020 


FRRmSG 


01021 


CALMSG 


01025 


rEMSG 


01031 


ALOC 


01033 


AACA 


01040 


ARTN 


01045 


MEMERR 


01050 


P0MSG 


01101 


T0 


01162 


Tl 


01173 


T2 


01205 


T3 


01217 


T4 


01231 


T5 


01243 


T6 


01255 


T7 


01267 


T10 


01303 


Til 


01320 


T12 


01335 


T13 


01352 


T14 


01367 


T15 


01404 


T16 


01421 


T16A 


01431 


T16B 


01433 


T16W 


01435 


T17 


01440 


T17A 


01451 


T17B 


01453 


T17W 


01455 


T20 


01460 


T20A 


01471 


T20B 


01473 


T20W 


01475 


T21 


01500 


T21A 


01511 


T21B 


01513 


T21W 


01515 


T22 


01520 


T??A 


01531 


T22B 


01533 


T22W 


01535 


T23 


01540 


T23A 


01551 


T2JB 


01553 
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T23W 


01555 


TS-f 


015ft0 


T24A 


P!1571 


T24B 


01573 


T24W 


01575 


T25 


01600 


T26 


01614 


T27 


01631 


T3« 


01646 


T31 


01663 


T32 


01700 


T33 


01715 


T34 


01732 


T34W 


01752 


T35 


01754 


T35W 


01775 


T36 


01777 


T56W 


02''020 


T37 


0?022 


T37W 


02043 


T40 


02045 


T4'0W 


02066 


T41 


02070 


T41W 


02111 


T42 


02113 


T42W 


02134 


T43 


02136 


T4 3A 


02150 


T43B 


02152 


T43W 


02154 


T44 


02156 


T44A 


02171 


T44B 


02173 


T44W 


02175 


T45 


02177 


T45A 


02212 


T45B 


02214 


T45H 


02216 


T46 


02220 


T46A 


02233 


T46B 


02235 


T4ftW 


02237 


T47 


02241 


T47A 


02254 


T47B 


02256 


T47W 


02260 


T5C5 


02262 


T50A 


02275 


T50B 


02277 


T50W 


02301 


T51 


02303 


T51A 


02316 


T51B 


02320 


T51W 


02322 


T52 


02324 
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T5?A 


02334 


T5?W 


02336 


T53 


02340 


T53A 


02351 


T53W 


02353 


T54 


02355 


T50A 


02366 


T54W 


02370 


T55 


02372 


T55A 


02403 


T55W 


02405 


T56 


02407 


T56A 


02420 


T56W 


02422 


T57 


02424 


T57A 


02435 


T57W 


02437 


T6C1 


02441 


T60A 


02452 


T6PIW 


02454 


T61 


02456 


T61A 


02466 


T61W 


02470 


T62 


02473 


T62A 


02504 


T62W 


02506 


T63 


02511 


T63A 


02522 


T63W 


02524 


T64 


02527 


T64A 


02540 


T64W 


02542 


T65 


02545 


T65A 


02556 


T65W 


02560 


T66 


02563 


T66A 


02574 


T66W 


02576 


T67 


02601 


T67A 


02612 


T67W 


02614 


T7PI 


02617 


T7(1A 


02627 


rym 


02631 


T71 


02634 


T71A 


02645 


T71W 


02647 


T72 


02652 


T7?A 


02663 


T7?W 


02665 


T73 


02671^ 


T73A 


02701 


T73W 


02703 


T74 


02706 


T74A 


02717 
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T74W 


02721 


T75 


0?7?4 


T75A 


0?735 


T75W 


02737 


T76 


0?742 


T76A 


07753 


T76W 


0?7'55 


T77 


0?76?l 


T77A 


02770 


T77W 


0P776 


TlPi0 


03003 


T100A 


03014 


T100W 


03022 


Tl«l 


03027 


TiaiA 


03040 


T101W 


03046 


T102 


83053 


T102A 


03064 


T102W 


03«72 


T103 


03077 


T103A 


03110 


T103W 


03116 


T104 


03123 


T104A 


03134 


T104W 


03142 


T1C95 


03147 


T105A 


03160 


T105W 


03166 


T106 


03173 


T106A 


03204 


T107 


03214 


T107A 


03226 


T110 


03236 


T110A 


032'50 


Till 


03260 


TlllA 


03272 


T112 


03302 


T112A 


03314 


T113 


03324 


T113A 


03336 


T114 


03346 


T114A 


03360 


T115 


03370 


T115A 


03404 


T115B 


03405 


T115W 


03407 


T116 


03412 


T116A 


03427 


T116B 


03430 


T116N 


03432 


T117 


03435 


T117A 


03452 


T117R 


03453 


T117W 


03455 


.T120 


03460 
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T120A 


03475 


Tl?0B 


03476 


T120W 


03500 


Tl?l 


03503 


T121A 


03520 


T121B 


03521 


T121W 


03523 


Tl?2 


03526 


T122A 


03543 


T122B 


03544 


T122W 


03546 


T123 


03551 


T123A 


03566 


T123B 


03567 


T123W 


03571 


T124 


03574 


T124A 


03607 


T124B 


03616 


T124W 


03620 


T125 


03626 


T125A 


03642 


T125S 


03651 


T125W 


03653 


T126 


03661 


T126A 


03675 


T126B 


03704 


T126W 


03706 


T127 


03714 


T127A 


03730 


T127B 


03737 


T127W 


03741 


T130 


03747 


T130A 


03763 


T130B 


03772 


T130W 


03774 


T131 


04002 


T131A 


04016 


T131B 


04025 


T131W 


04027 


T132 


04035 


T132A 


04051 


T132B 


04060 


T132W 


04062 


T133 


04070 


T134 


04105 


T135 


04123 


T136 


04141 


T137 


04157 


T140 


04175 


T141 


04213 


T142 


04231 


T142A 


04244 


T142B 


04246 


T142W 


04250 


T143 


04252 
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T143A 


04266 


T143R 


04270 


T143W 


04272 


T144 


04274 


T144A 


04310 


T144B 


04312 


T144W 


04314 


T145 


04316 


T145A 


04332 


T145B 


04334 


Tl45^< 


04336 


T146 


04340 


T146A 


04354 


T146B 


04356 


T146W 


04360 


T147 


04362 


T147A 


04376 


T1478 


04*fl0 


T147W 


04402 


T150 


04404 


T150A 


04420 


T150B 


04422 


T150W 


04424 


T151 


04426 


T152 


04443 


T152A 


04456 


T152W 


04463 


T153 


04466 


T153A 


04502 


T153W 


04507 


T154 


04512 


T154A 


04526 


T154W 


04533 


T155 


04536 


T155A 


04552 


T155W 


04557 


T156 


04562 


T156A 


04576 


T156W 


04603 


T157 


04606 


T157A 


04622 


T157W 


04627 


T160 


04632 


T160A 


04646 


T160W 


04653 


T161 


04656 


AT0A 


04673 


ATPIB 


04705 


AT0W 


04707 


T162 


04715 


ATlA 


04733 


ATlB 


04745 


ATlW 


04747 


T163 


04755 


AT2A 


04773 
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AT2B 


05005 


AT2W 


05007 


T164 


05015 


AT3A 


05033 


AT3B 


05045 


AT3W 


05047 


T165 


05055 


AT4A 


05073 


AT4B 


05105 


AT4W 


05107 


T166 


05115 


AT5A 


05133 


At5B 


05145 


AT5W 


05147 


T167 


05155 


AT6A 


05173 


AT6B 


05205 


AT6H 


05207 


LOC 


006000 


L&CF0 


006000 


K10K 


010000 


L0F1 


010000 


Liri 


010001 


Lien 


010010 


L2PIF1 


010020 


L40F1 


010040 


LOCFl 


016000 


K2eiK 


020000 


L0F2 


020000 


L0F3 


020000 


LIF? 


020001 


L10F2 


020010 


L20F2 


020020 


L40F2 


020040 


L0CF2 


026000 


K30K 


030000 


L0F4 


030000 


L1F3 


030001 


L10F3 


030010 


L20F3 


030020 


L40F3 


030040 


L0CF3 


036000 


K40K 


040000 


L1F4 


040001 


L10F4 


040010 


L20F4 


040020 


L40F4 


040040 


L0CF4 


046000 


K50K 


050000 


L0F5 


050000 


L1F5 


050001 


L10F5 


050010 


L20F5 


050020 


L40F5 


050040 


L0CF5 


056000 



PAGE 83 EXM15 



K60K 


060000 


L0F6 


06-0000 


Lir6 


060001 


L10F6 


060010 


L20r6 


060020 


L4P1F6 


060040 


L0Cr6 


066000 


K70K 


070000 


L0F7 


070000 


L1F7 


070001 


L10F7 


070010 


L20F7 


070020 


L40F7 


070040 


L0CF7 


076000 


CHAIN 


100223 


SETLOC 


100270 


SETA 


100301 


MOVE 


100311 


STFN 


100336 


TF2 


100513 


TF3 


100517 


TF4 


100523 


TF5 


100527 


TF6 


100533 


TF7 


100537 


CKAPI 


100543 


ERROR 


100604 


ERRORA 


100^04 


TYPE 


100657 


K404K 


404000 


SKIP 


600240 


CLSF 


700001 


CLOF 


700004 


CLON 


700044 


RSF 


700101 


RCF 


700102 


RSA 


700104 


RRB 


700112 


RSR 


700144 


PSF 


700201 


PCF 


700202 


PSA 


700204 


PSB 


700244 


Ksr 


700301 


KRB 


700312 


TSF 


700401 


TCF 


700402 


TLS 


700406 


EEM 


707702 


LEM 


707704 


EXBA 


707761 


EpA 


707762 


EBA 


707764 


CLX 


735000 


SWA 


742030 



MAIN DEC EVALUATION REQUEST 



After sufficient familiarization with the operation and documentation of this MAIN DEC, 
please indicate your assessment of the following areas and return this form to Digital Equipment Cor- 
poration. 

IDENTIFICATION : MAINDEC NO Program Title____ 



USAGE : Used by: Field Service Q Production Q Other, r~\ 

Frequency of Usage: Daily Q Weekly Q Monthly | | 
SUGGESTIONS FOR IMPROVEMENT 

1. Are the program loading and operating instructions: clear?! I, incomplete? I I, difficult to 
follow ?Q I— I •- L_J 

2. Do the error reports and program documentation provide sufficient diagnostic information. 

in all cases?Q, in most cases ? [~| , in very few cases ?| |. Suggestions for improvement: 



3. Is the program effective in isolating malfunctions: in all cases ?Q, in most cases ?| |, 

in very few cases ?Q. Would additional Scope loops or Switch Register control be helpful ?. 
Suggestions for improvement: 



4. Does the program ever fail to detect malfunctions exposed by other software?. 
Were Margins used? Please describe malfunction in detail: 



5. Does the program ever report non-existant malfunctions?. 



Please indicate erroneous report and any pertinent operoting conditions: 



6. Does this MAINDEC ever expose malfunctions in the Central Processor or other peripheral units not 

detected by the appropriate MAINDEC ? 

Please describe malfunction and MAINDEC(S) used: 



7. Does the document provide a general understanding of the functional programming requirements of 



the system? Good[~) , FairP], None[~] . Would a general description of programming re- 
quirements increasethe effectiveness of thisMATNDFr ? 



Remarks: 



Fold Here 



Do Not Tear - Fold Here and Staple 



BUSINESS REPLY MAIL 

NO POSTAGE STAMP NECESSARY IF MAILED IN THE UNITED STATES 



Postage will be paid by: 




Digital Equipment Corporation 
Diagnostic Programming Group 
146 Main Street, Building 12 
Maynard, Massachusetts 01754 



FIRST CLASS 

PERMIT NO. 33 

MAYNARD, MASS. 



